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SECTION  I 
INTRODUCTION 


1 . PURPOSE 

This  report  provides  the  Air  Force  with  an  analytical  tool  with  which  current 
and  potential  false  target  reflectors  can  be  evaluated  or  determined.  Further- 
more, an  explanation  of  the  computer  code  is  provided  and  a sample  problem  is  in- 
cluded so  that  the  user  may  become  familiar  with  the  input  data  and  the  flexibil- 
ity of  the  output  list. 

The  program  decodes  and  lists  data  from  the  Federal  Aviation  Administration 
(FAA)  Air  Traffic  Control  Radar  Beacon  System's  (ATCRBS)  data  extraction  tapes. 
These  data  are  screened  from  a very  large  volume  of  data  recorded  on  these  tapes 
and  the  processed  data  are  related  to  false  target  reflectors.  These  reflectors 
are  identified  by  azimuth,  range  and  orientation. 

2.  BACKGROUND  INFORMATION 

JASPER  is  an  AFWL  modified  code  combining  features  from  two  computer  codes 
supplied  by  Lincoln  Laboratories,  Program  PT  and  Program  LOGAN. 

PT  selects  all  radar  target  reports  and  sends  them  to  a subroutine  named 
REFLECT. ^ REFLECT  examines  all  of  these  reports  and  upon  finding  a possible 
false  target,  lists  a "questionable  data  group"  along  with  a computed  position  of 
the  reflector. 

LOGAN  does  not  use  the  subroutine  REFLECT  but  does  decode  and  list  data  con- 
tained in  a table  called  "Central  Track  Store".  It  decodes  and  lists  "Target  Re- 
plies" (hits).  LOGAN  also  decodes  and  lists  the  target  reports  used  by  PT.  Target 
reports  are  generated  on  the  FAA  tapes  when  replies  from  a given  target  persist  for 
a preset  number  of  times.  This  number  is  usually  set  at  six.  Central  Track  Store 
supplies  detailed  information  related  to  a given  target  such  as  position,  velocity, 
etc. 


(1)  Private  communication  with  Mr.  A.  G.  Cameron,  Lincoln  Laboratories,  May  1974. 
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3.  GENERAL  DESCRIPTION  OF  PROGRAM 

JASPER  uses  REFLECT  taken  from  PT  and  also  decodes  The  Central  Track  Store 
as  done  by  LOGAN.  Combining  these  features  with  other  features  unique  to  JASPER 

resulted  in  a single  program  adapted  to  the  type  of  analysis  being  done  by  the 
AFWL  at  Kirtland  Air  Force  Base. 

For  our  analysis  it  was  desired  to  have  the  latest  track  store  data  for  a 
given  target  and  an  output  of  all  target  reports  immediately  proceeding  and 
following  any  "questionable  data  group"  detected  by  REFLECT.  JASPER  does  this 
by  maintaining  in  memory  the  latest  one  hundred  target  reports  and  the  latest 
track  store  data  for  a designated  target.  When  REFLECT  detects  a "questionable 
data  group"  it  lists  all  of  this  information  and  sets  a flag  which  causes  JASPER 
to  list  following  target  reports  until  the  current  scan  is  completed. 

Program  flow  logic  and  the  method  of  data  unpacking  and  decoding  was  rede- 
signed. The  new  design  was  adapted  to  the  CDC  6600  computer  and  resulted  in  a 
significant  saving  in  program  run  time. 

4.  GENERAL  DESCRIPTION  OF  FAA  TAPE 

This  tape  is  written  with  odd  parity  (bin  mode).  Data  are  packed  into  30- 
bit  words.  Records  consist  of  200  30-bit  words.  All  data  are  defined  in  terms 
of  a 30-bit  word,  structure. 

The  first  word  of  each  record  is  always  a record  number.  Records  are  num- 
bered consecutively  starting  at  zero.  If  an  error  occurs  in  recording,  the 
record  is  repeated  until  a good  recording  is  made.  Repeated  records  carry  the 
same  record  number. 

The  second  word  of  a record  is  always  the  first  word  of  a message*  and  the 
last  five  bits  of  the  first  word  of  a message  are  always  the  message  code  (MC). 
For  each  legal  MC  there  is  a message  word  count  and  definition  of  format.  If  a 
given  message  will  not  fit  in  the  remaining  space  of  a record  it  will  be  made 
the  first  message  of  the  next  record.  An  MC  of  zero  indicates  there  are  no  re- 
maining messages  in  a given  record.  An  illegal  MC  means  that  data  sync  has  been 
lost. 


* See  table  1 and  figures  1 through  11  for  message  definition  and  word  format. 
Narrative  description  follows  in  Section  II. 
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SECTION  II 

DETAILED  DESCRIPTION  OF  FAA  TAPE 


Table  1 shows  the  word  count , message  type  and  message  name  associated  with 
each  valid  message  code. 

JASPER  decodes  only  messages  with  codes  1 through  6.  The  word  count  is  re- 
quired on  all  messages  to  maintain  data  synchronization. 

This  report  makes  reference  to  message  type  1,  message  type  2,  message  type 
4,  and  message  type  6.  Message  type  2 appears  with  an  MC  of  either  2 or  3, 
message  type  4 appears  with  an  MC  of  either  4 or  5. 

Message  type  1 contains  the  antenna  azimuth  and  is  followed  by  reply  words 
if  a target  is  observed  by  ATCR8S.  The  reply  words  are  identified  with  a 1 in 
bit  position  29  (see  formats  for  the  azimuth  word  and  the  reply  word). 

JASPER  uses  the  azimuth  word  to  update  the  scan  count  and  monitors  bit  29  of 
following  words  in  order  to  pass  through  all  reply  words  which  might  follow. 

Message  type  2 is  passed  on  to  the  subroutine,  REFLECT. 

Message  type  4 is  used  to  update  the  sector  time  clock. 

When  a message  type  6 appears,  word  1 of  parameter  card  4 is  checked. 

If  this  word  reads  7777  the  track  store  table  is  updated.  Otherwise  the  update 
is  made  only  if  the  beacon  code  form  message  type  6 matches  word  1 of  parameter 
card  4. 

Note  that  the  word  count  of  message  type  6 was  originally  17.  Because  of 
continual  updating  of  ATCRBS  by  the  FAA,  this  word  count  was  changed  to  19  and 
currently  is  20.  Depending  upon  date  of  extraction  tape,  the  word  count  will 
have  been  revised  accordingly.  Therefore,  tapes  dated  before  August  1974  use  17, 
tapes  dated  between  August  1974  and  24  February  1975,  use  19,  and  tapes  dated 
after  24  February  1975,  use  20  (see  figure  6).  The  word  count  on  message  type 
19  is  currently  13  but  has  been  12.  The  word  count  of  message  type  15  is  listed 
as  a variable.  The  count  is  extracted  from  the  front  end  of  the  message. 

Word  formats  used  by  JASPER  are  shown  following  table  1,  in  figures  1 through 
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MC 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 

MC  = 
WRDS  = 
TYPE  * 
NAME  = 


Table  1. 

MESSAGE  DEFINITION  (CODE,  WORD  COUNT,  TYPE,  NAME) 


WRDS  TYPE 

1 + N REPLY  WRDS  1 

2 2 

2 2 

1 4 

I 4 

17/19/20  6 

II  7 

7 8 

4 9 

10  10 

4 11 

4 12 

1 13 

1 14 

VARIABLE  15 

6 16 

1 17 

1 18 

12/13  19 

Message  Code 
Word  Code 
Message  Type 
Message  Name 


NAME 

BEACON  REPLIES 

TARGET  REPORTS  SUBSYSTEM  1 

TARGET  REPORTS  SUBSYSTEM  2 

SECTOR  TIME  SUBSYSTEM  1 

SECTOR  TIME  SUBSYSTEM  2 

TRACKING 

KEYBOARD  ENTRIES 

DISPLAY  OUTPUT 

AUTO  ACQUIRE 

AUTO  TERMINATE 

AUTO  ASSIGN  CODE 

AUTO  TAB  COAST 

AUTO  HANDOFF  COAST 

DATA  LOSS 

FLIGHT  PLANS 

BCN  INDENT. 

MEMORY  DUMP  - NO  STOP 
MEMORY  DUMP  - AND  STOP 
TRIAL  TRACKING 
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Figure  1.  Message  Type  1 


Figure  3.  Message  Type  4. 


FORMATS  OF  SELECTED  WORDS  FROM  MESSAGE  TYPE  6 


Figure  6.  RGAZT  Word. 


LSB  = 1/16  NM TTCNT  | - XP LSB  = 1/16  NM  | TC2 


XDOT  = X Component  of  Velocity  in  NM/SEC 
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JASPER  includes  a subroutine  which  will  decode  and  list  reply  words  from 
message  type  1.  It  is  not  in  current  use  since  printer  output  would  be  exces- 
sive. Comment  cards  within  the  code  indicate  how  this  subroutine  can  be  made 
active. 
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SECTION  III 

DETAILED  DESCRIPTION  OF  PROGRAM 


1.  CARD  INPUT 

The  first  cards  read  are  for  comments  or  documentation  to  be  listed  on 
printer  output.  Up  to  nine  cards  may  be  used.  The  last  card  must  have  a X in 
Col umn  1 . 

The  comments  cards  are  followed  by  four  parameter  cards. 

CARD  1 FORMAT  315  NPSS,  JPSS,  LRCRD 

The  program  skips  NPSS  records  and  then  processes  JPSS  records  from  the  data  in- 
put tape. 

LCRD  = 1,  for  100  word  input  records  (original  FAA  tape) 

LRCRO  = 5,  for  500  word  input  records  (reformated  FAA  tape) 

CARD  2 FORMAT  1913 

This  card  contains  the  message  word  count  for  each  of  the  message  codes,  1 
through  14  and  16  through  19.  Use  99  in  field  number  15. 

CARD  3 FORMAT  215 

These  two  words  are  required  since  some  tapes  combine  data  from  two  control 
towers  under  subsystem  1 and  sybsystem  2.  Enter  2 and  4 for  subsystem  1. 

Enter  3 and  5 for  subsystem  2. 

CARD  4 FORMAT  215 

Word  1 is  a four  digit  beacon  code.  The  latest  track  store  information  on  that 
code  will  be  included  with  the  questionable  group  printout.  Word  2 is  a maximum 
target  altitude  in  feet. 

2.  PRINTER  OUTPUT 

The  first  page  of  output  is  a description  of  card  input.  The  next  page  is  a 
list  of  card  input.  This  is  followed  by  data  derived  from  the  FAA  tape. 
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Whenever  a beacon  code  appears  in  the  tape  data  for  the  first  time  it  is  listed 
with  the  label  ADDITIONAL  CODE. 

Whenever  signals  from  a false  target  appear,  a printout  of  data  is  initiated. 

A description  of  these  data  follow. 

The  first  line  will  contain  the  label,  QUESTIONABLE  GROUP  CODE  =,  followed  by  a 
beacon  code  and  a second  label,  LAST  SECTOR  TIME,  followed  by  the  current  reading 
of  the  sector  time  clock. 

Below  this  line  are  printed  the  scan  numbers,  the  azimuth  values  (degrees,  mag- 
netic heading)  and  the  range  values  (nautical  miles)  from  the  group  of  target  re- 
ports in  question.  This  is  followed  by  a computed  location,  including  orientation, 
of  the  reflector  which  caused  the  false  target.  If  there  is  a target  split  off  the 
reflector,  both  the  split  and  the  false  target  are  printed. 

Selected  data  from  the  latest  track  store  table  are  the  next  information  printed. 
If  the  user  asks  for  a track  store  monitor  on  a particular  beacon  code,  only  data 
belonging  to  that  code  will  be  stored.  If  a dummy  code  of  7777  is  specified,  all 
data  will  be  stored.  In  this  case  the  data  printed  may  belong  to  any  beacon  code 
in  the  area. 

Column  headings  for  these  data  have  meaning  as  shown  below. 

UT  Used  to  define  the  type  and  status  of  the  track  file. 

A Used  to  define  the  type  and  status  of  the  track  file. 

TP  Used  to  define  the  type  and  status  of  the  track  file. 

HR  Hours 

MIN  Minutes 

SEC  Seconds 

ACID  Aircraft  Identification 

ALT  Aircraft  Altitude 

ABCD  Assigned  Beacon  Code 

RBCD  Reported  Beacon  Code 

AZM  Azimuth  (degrees) 

RGN  Range  (nautical  miles) 
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XP 

Predicted  X coordinate  (nautical  miles) 

YP 

Predicted  Y coordinate  (nautical  miles) 

1 

XD 

X component  of  velocity  (nautical  miles/second) 

) 

YD 

Y component  of  velocity  (nautical  miles/second) 

VEL 

Velocity  (nautical  miles/second) 

HDNG 

Heading  (degrees) 

The  final  printout  initiated  by  the  appearance  of  a false  target  is  a sequen- 
tial listing  of  the  current  scan  and  following  scan  target  reports.  A three  line 
gap  in  the  listing  shows  the  end  of  the  current  scan.  The  first  target  report  of 
the  following  scan  plus  one  is  also  printed. 

Column  headings  for  these  data  have  meaning  as  shown  below. 

H 

Hour 

M 

Minute 

SEC 

Seconds 

RNG 

- Range  (nautical  miles) 

AZM 

Azimuth  (degrees) 

ALT 

Aircraft  altitude 

BCD 

Beacon  code 

1 

VA 

Mode  A validity 

I 

* 

VC 

Mode  C validity 

S 

Special  position  indicator 

[I 
> 1 

F 

Flag 

F = 1,  when  target  report  precedes  or  includes  the  questionable 
group 

F = 5,  when  target  report  follows  the  questionable  group. 

i l! 

RCRD 

r 

Current  record  count  from  the  FAA  data  tape. 

'VI 

-V 

i 

uT : j 

> 

hi 

19  73 

J 
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SECTION  IV 

DESCRIPTION  OF  MAJOR  SUBROUTINES* 


1.  SUBROUTINE  GEN 
a.  Entry  ZAP 

A call  to  ZAP  processes  one  record  of  data  from  buffer  JB.  It  makes  calls 
to  ZAP1,  ZAP2,  ZAP4  and  ZAP6.  These  are  all  entries  in  subroutine  JADE,  and  are 
primarily  used  for  unpacking  and  processing  data  transferred  through  buffer  JX. 

ZAP!  is  used  for  message  type  1 data,  ZAP2  for  message  type  2 data,  ZAP4  for  mes- 
sage type  4 and  ZAP6  for  message  type  6 data.  A very  important  function  of  ZAP 
is  branching  or  routing  of  program  action.  The  branching  logic  is  indexed  by  the 
variable  MC  extracted  directly  from  the  data.  MC  is  the  message  code  value. 

2.  SUBROUTINE  JADE 

Used  for  unpacking  and  processing  data  transferred  through  buffer  JX.  See 
above. 

3.  SUBROUTINE  RUBY 
a.  Entry  TRSPLT 

Used  by  ZAP6  for  unpacking  words  following  the  fourth  word  of  message  type 
6 data.  Special  routing  Is  used  depending  upon  the  value  input  from  parameter  card 
2,  word  6,  JMC  (6).  This  Is  the  word  count  for  message  type  6 and  has  changed  from 
17  to  19  and  currently  is  20.  The  special  routing  makes  possible  the  correct  pro- 
cessing of  data  from  any  of  the  three  periods  referred  to  in  Section  II. 

4.  SUBROUTINE  SET 

a.  Entry  LOAD 

This  entry  clears  buffer  JA  (100),  JB  (200),  JX  (50)  and  reads  the  next 
data  record  from  tape  to  buffer  JA  (100). 

LEN  Is  set  to  the  number  of  words  read,  KNT  (record  count)  is  updated  and 
LAST  is  set  to  0 for  normal  return,  set  to  1 for  an  end  of  file  return. 

b.  Entry  SPLIT 

This  entry  converts  60-bit  words  from  JA  to  30-bit  words  and  stores  them 
in  buffer  JB. 

*See  Table  2. 
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. 

c.  Entry  PRNTA 

Currently  not  used,  if  called  PRNTA  will  make  an  octal  listing  of  data  i.n 

\ 

buffer  JA. 

d.  Entry  PRNTB 

PRNTB  makes  an  octal  listing  of  the  contents  of  buffer  JB.  It  is  called 
when  data  synchronization  has  been  lost. 

Table  2. 

SUBROUTINES  FOR  PROGRAM  JASPER 


A. 

MAIN 

B. 

SET 

C. 

GEN 

D. 

JADE 

E. 

RUBY 

F. 

JADER 

G. 

REFLECT 

e.  Flow  charts  for  this  program  are  shown  in  figures  B1 , Cl,  and  D1 . Guides 
for  reading  these  flow  charts  are  in  appendixes  B,  C,  and  D. 

f.  The  use  of  common  block  variables  is  explained  in  appendix  A. 
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APPENDIX  A 

COMMON  BLOCK  VARIABLES 


1 . COMMON/BLKI/ 


o 

o 

C\J 

CO 

•~3 

O 

o 

*"0 

LEN,  LAST,  MC,  JX(50),  JP,  KNT,  KX 

JA(IOO) 

- Data  from  input  tape 

JB(200) 

- Input  data  converted  to  30-bit  words 

LEN 

- Input  record  length 

LAST 

- Flag,  set  at  0 for  normal  return 

set  at  1 for  end  of  file  return 

MC 

- Message  code  extracted  from  data 

JX(50) 

- Used  for  unpacked  message  words 

JP 

- Used  for  indexing  JB(200),  indicates  the 
first  word  of  a message 

KNT 

- Record  count 

KX 

- Count  of  target  replies  in  a given  type 
message  (first  reply  in  JX(2),  last  repl; 
JX(KX) 

The  above  common  block  appears  in  the  main  program,  and  in  the  following  sub- 
routines: 

SET 

GEN 

JADE 

RUBY 

2.  C0MM0N/BLK2/  SCNDS,  LHR,  LMN,  FSCS,  JAFC(5),  ASEC,  KAFC(4),  FAFC(8) 

SCNDS  - Latest  sector  time  in  seconds  extracted  from  message  Type  4/5 

LHR,  LMN,  FSCS  - The  above  time  in  hours,  minutes  and  seconds  (see  Entry  ZAP4) 

JAFC(5),  ASEC,  KAFC(4),  FAFC(8)  are  used  to  store  the  latest  selected  track  store 
data,  message  type  6 (selected  by  user  option  with  Beacon  Code  ID) 
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These  data  are  defined  as  follows: 


JAFC(l) 

- UT 

JAFC(2) 

- A 

JAFC ( 3 ) 

- TP 

JAFC(4) 

- Hour 

JAFC (5) 

- Minutes 

ASEC 

- Seconds 

KAFC(l) 

- Aircraft  ID 

KAFC(2) 

- Altitude 

KAFC(3) 

- Assigned  Beacon 

KAFC(4) 

- Reported  Beacon 

FAFC(l) 

- Azimuth 

FAFC(2) 

- Range 

FAFC(3) 

- A/C  position  X 

FAFC(4) 

- A/C  position  Y 

FAFC(5) 

- X Dot 

FAFC(6) 

- Y Dot 

FAFC(7) 

- Velocity 

FAFC(8) 

- Heading 

The  above  common  block  appears  in  the  main  program,  and  in  the  following  sub- 
routines: 

GEN 

JADE 

REFLECT 

3.  C0MM0N/BLK3/NHR(1 00) , NMN(IOO),  FSC(IOO),  FRNG(IOO),  FAZ(IOO),  NALT(IOO), 
NCD(IOO),  NST(IOO) , NVC(IOO),  NVA(IOO),  NSP(IOO),  KAP,  LAP,  NKNT(IOO) 

All  buffers  dimensioned  100  are  used  for  storing  the  latest  100  target  reports 
(message  type  2)  with  related  sector  time  (NHR,  NMN,  FSC)  and  input  record  count 
(NKNT). 
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These  data  are  defined  as  follows: 


NHR(IOO) 

- 

Hours 

NMN(IOO) 

- 

Minutes 

FSC(IOO) 

- 

Seconds 

FRNG(IOO) 

- 

Range 

FAZ(IOO) 

- 

Azimuth 

NALT(IOO) 

- 

Altitude 

NCD(IOO) 

- 

Beacon  Code 

NST(IOO) 

- 

Strong  Target  Flag 

NVC(IOO) 

- 

Mode  C validity 

NVA(IOO) 

- 

Mode  A validity 

NSP(IOO) 

- 

Special  position  indicator 

NKNT(IOO) 

- 

Input  record  count 

KAP 

- 

This  is  an  end  around  index  showing  position  1 of  the 
last  100  target  reports. 

LAP 

This  is  a flag,  when  set  to  1 entry  ZAP  will  list 
target  reports  until  a change  in  scan  count  occurs. 
Reflect  sets  lap  at  1 following  a questionable  group 
data  list. 

The  above  common  block  appears  in  subroutines  JADE  and  REFLECT. 

4.  COMMON/BLK4/LTR( 1 00) 

LTR(IOO)  is  used  to  store  unpacked  words  of  track  store  data  starting  with 
word  5.  The  unpacking  is  done  by  entry  TRSPLT  when  called  by  ZAF6. 

The  above  common  block  appears  only  in  subroutine  JADE 

5.  COMMON/ BLK5/KMC(1 9) 

JMC (19)  is  loaded  from  parameter  Card  2.  It  contains  the  message  word  count 
for  each  of  the  message  codes,  1 through  14,  and  16  through  19.  Since  message 
code  15  has  a variable  word  count  a 99  is  used  in  JMC (15).  These  word  counts  are 
used  to  update  JP,  the  index  indicating  the  first  word  of  a message  in  buffer  JB. 

The  above  common  block  appears  in  subroutine  GEM  and  RUBY. 
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6.  C0MM0N/BLK6/IF (13),  LG(7),  LH(4),  NCID(45),  JTM(5),  JAL(3),  JID(7) 

LF ( 1 3 ) is  used  to  store  the  first  13  bits  of  an  azimuth  word  (Message  type  1) 
reading  from  left  to  right. 

LF(g)  - Set  to  1 means  Mode  A replies  follow 

LF(10)  - Set  to  1 means  Mode  C replies  follow 

A complete  format  definition  of  LF (13)  is  attached 
LG(7)  and  LH(4)  are  used  for  temporary  buffering 
NCID(45)  contains  a table  of  BCD  code 
JIM(5) , JAL(3) , JID(7)  are  used  for  temporary  buffering 
The  above  common  block  appears  only  in  subroutine  JADE. 
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APPENDIX  B 

GUIDE  FOR  READING  FLOW  CHART  1 

This  flow  chart  describes  the  flow  logic  of  the  main  program.  The  first 
three  blocks  of  the  chart  prepare  the  program  for  the  basic  loop  which  drives  the 
program.  One  pass  through  this  basic  loop  is  required  to  process  one  record  of 
tape  input. 

The  variables  used  have  meaning  as  listed  below: 

NCNT  - Record  Count. 

NPSS  - Number  of  records  to  be  skipped. 

JPSS  - Number  of  records  to  be  processed. 

NUMB  - Record  # N. 

NUMA  - Records  # N-l . 

LY4  - Set  at  4 or  5 by  user  option. 

LY2  - Set  at  2 or  3 by  user  option. 

Where  branching  occurs,  the  following  abbreviations  are  used: 

LE  - Less  than  or  equal 

GT  - Greater  than 

EQ  - Equal 

NE  - Not  equal 

Subroutine  names  shown  in  the  chart  are  SPLIT  and  ZAP. 

A call  to  SPLIT  Is  used  to  split  one  record  of  60-bit  words  into  30-bit  words. 

A call  to  ZAP  is  used  to  process  one  record  of  30-bit  words. 

A description  of  action  during  a pass  through  the  main  loop  is  as  follows: 

At  the  top  of  the  loop,  the  input  buffer  is  cleared  and  a new  record  of  tape 
input  is  brought  Into  the  buffer,  or  end  of  data  is  Indicated. 

A test  Is  made  for  end  of  data,  no  more  data  terminate,  otherwise  bump  the 
record  counter. 

Check  the  record  count  against  the  number  of  records  to  be  skipped.  If  less 
than  or  equal,  return  to  the  top  of  the  loop  and  pick  up  the  next  record. 


r. 
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Otherwise,  call  SPLIT,  save  the  current  record  number  in  NUMA  and  pick  up  the 
next  record  number  from  the  record  just  brought  in  and  store  in  NUMB.  If  this 
record  has  the  same  number  as  the  preceding  record,  an  error  in  tape  recording 
is  indicated.  Return  to  the  top  of  the  loop  and  pick  up  the  next  record.  Other- 
wise a record  of  30-bit  words  is  ready  for  processing. 

Processing  Is  Initiated  with  a call  to  ZAP.  Upon  return  from  ZAP,  JPSS  is 
decremented  by  1.  If  JPSS  records  have  been  processed,  JPSS  will  have  a value  of 
zero  and  the  run  terminates.  Otherwise  a return  is  made  to  the  top  of  the  loop 
where  the  next  record  is  brought  in  and  the  whole  sequence  is  repeated. 


I 


E: 


V' 


I 


AFWL-TR-76-219 

APPENDIX  C 

GUIDE  FOR  READING  FLOW  CHART  2 

The  first  two  blocks  of  the  chart  are  used  only  during  program  initialization. 

The  third  block  shown  is  at  entry  ZAP.  In  this  block  the  basic  loop  is  ini- 
tialized. One  pass  through  the  loop  is  required  to  process  one  message  from  a 
given  record.  Passes  are  continued  until  all  messages  of  the  current  record  have 
been  processed. 

The  variables  used  have  meaning  as  listed  below: 

MC  - Message  code 

MCX  - Message  code  of  the  preceding  message 

JP  - Index  in  buffer  JP  which  indicates  the  first  word  of  a message 

NUM  - Record  number  (always  the  first  record  word) 

Buffer  JP  - Used  for  one  record  of  30-bit  words 
Buffer  JX  - Used  to  store  one  message 
Buffer  JMC  - Used  to  store  message  word  counts. 

Where  branching  occurs,  the  following  abbreviations  are  used: 


EQ 

- Equal 

LT 

- Less  than 

GT 

- Greater  than 

Note  from  the  chart  that  only  message  type  1,  4,  2 and  6 are  processed. 

The  use  of  LY4  and  LY2  permits  the  user  to  select  data  from  either  subsystem 
1 (LY2=2  / LY4=4)  or  subsystem  2 (LY2=3  / LY4=5). 

Two  special  cases  have  to  be  accommodated.  Message  type  1 is  followed  by  a 
variable  number  of  reply  words  which  must  be  identified  and  skipped. 

Message  type  15  has  a variable  word  count  which  is  extracted  directly  from 
the  data. 

All  other  message  word  counts  are  indexed  by  MC  from  the  buffer,  JMC. 
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Read  and  List 
Parameter  Card  2 
Parameter  Card  3 
Return 


ENTRY  ZAP 


Set 


JP-2 

NUM-JP(l) 


Clear  Buffer  JX 
Set  MCX=MC 
Extract  Next 
Value  for  MC 
from  data 


MC: 

:LY4  , 

— 

V.  ^ 

^ MC: 

:LY2^ 

1 EQ 

1 

Process  Message 
Type  1 

Skip  Following 
Reply  words 
Bump  JP 


Process 
Message 
Type  4 
Bump  JP 


Process 
Message 
Type  2 
Bump  JP 


Bump  JP 
JP-JP+JMC (MC) 


LT  JP:200 


Process 
Message 
Type  6 
Bump  JP 


RETURN 


Bump  JP  using 
Word  Count 
Extracted  from 
Data 


Data  is  out  of 
Sync 

Bump  JP  by  1 


| RETURN  | 

Figure  Cl.  Flow  Chart  2 - Subroutine  GEN. 
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The  flow  logic  detects  out-of-sync  data  when  MC  is  greater  than  19.  In  an 
attempt  to  recover  sync,  JP  is  bumped  by  1 and  if  the  index  (JP)  is  still  within 
buffer  limits,  action  is  returned  to  the  top  of  the  loop.  Otherwise  a return  is 
made  to  the  main  program.  With  the  start  of  the  next  record,  sync  is  recovered 
since  the  second  word  of  a record  is  always  the  first  word  of  a message. 

An  MC  with  zero  value  tells  the  routine  that  all  messages  of  a given  record 
have  been  read.  The  routine  returns  action  to  the  main  program. 

The  actual  message  processing  is  not  done  in  this  subroutine.  It  is  accom- 
plished by  means  of  calls  to  entries  in  subroutine  JADE.  A call  to  ZAP!  is  for 
processing  message  type  1 data.  A call  to  ZAP2  is  for  processing  message  type  2 
data.  For  message  type  4,  a call  is  made  to  ZAP4  and  for  message  type  6,  a call 
is  made  to  ZAP6. 


AFWL-TR-76-21 9 


APPENDIX  D 

GUIDE  FOR  READING  FLOW  CHART  3 

i The  first  two  blocks  are  used  only  during  program  initialization.  This  is 

done  with  a call  to  JADE  from  the  main  program.  Other  calls  are  all  made  from 
Subroutine  GEN.  They  are  used  for  processing  a message  of  a given  type.  The 
number  used  as  the  last  character  of  the  entry  name  indicates  the  message  type. 

For  instance.  Entry  ZAP2,  is  used  for  processing  message  type  2 data.  The  vari- 
ables used  have  meaning  as  listed  below: 

MBCD  - This  is  a beacon  code  supplied  by  the  user 

JABCD  - Assigned  beacon  code 

JRBCD  - Reported  beacon  code 

The  abbreviation  EQ  for  equal  is  used  In  some  of  the  flow  branching  logic,  also 
GT  for  greater  than,  LT  for  less  than. 

Entry  ZAP1  processes  message  type  1 data  which  includes  an  azimuth  word.  This 
azimuth  reading  is  used  to  update  the  scan  count. 

Entry  ZAP2  requires  no  branching.  The  latest  100  target  reports  are  maintained 
in  storage  using  end  around  indexing.  The  current  target  report  along  with  the 

scan  number  is  passed  on  to  REFLECT.  This  routine  examines  the  current  report  and 

preceding  reports  for  a "questionable  data  group". 

Entry  ZAP4  processes  the  sector  time  word  and  updates  a clock  register.  The 
current  time  is  thus  available  for  listing  with  a "questionable  data  group". 

Entry  ZAP6  processes  the  track  store  data  and  selectively  stores  the  data.  If 
the  user  sets  MBCD  to  7777  the  data  are  stored  regardless  of  the  beacon  code  num- 
ber, otherwise  the  data  are  stored  only  when  MBCD  can  be  matched  with  either  the 
assigned  beacon  code  number  or  the  reported  beacon  code  number. 

The  data  stored  provide  a listing  of  the  latest  selected  track  store  data  with 
the  listing  of  "questionable  data  group". 
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ENTRY  ZAP 2 ENTRY  ZAP 6 


Figure  D1 . Flow  Chart  3 - Subroutine  JADE. 
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APPENDIX  E 

JASPER  PROGRAM  LISTING 

The  following  is  a listing  of  the  complete  JASPER  I Program  which  consists  of 
the  MAIN  program  and  the  six  subroutines.  The  listing  is  given  in  the  same  order 
as  the  list  of  subroutines  in  table  2.  For  a short  description  of  the  major  sub- 
routines, see  Section  IV.  Also  the  COMMON  BLOCK  variables  are  explained  in  detail 
in  Appendix  A as  well  as  guides  to  FLOW  CHARTS  for  main  program  and  subroutine 
GEN  and  JADE  are  in  Appendixes  B,  C,  and  D. 
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_ERQ  GRAM_J  AS.PEE- 


900 
.10  i _ 
932 


- 125  Z 


PROGRAM  JASPER (OUTPUT, TAPE!, INPUT) 
rtnMMriM  / <•  / ucmi  ..iupni  .i  - m.  i 


COMMON/ 3-K2/  3CN0S, -HR, _mn, ^SCS,  JAFiC<  51  , ASEC , < AFC  ( <•  ) .FAFCMI 

DIMENSION  ID  11) ....  . ..  

FD=MAT(/iOX*wRO  COUNT  IN  PEG  NUM*2  X 15 , 2 X*  I 3 NOT  130,  3'JT*2XI7/) 

_.FCsJ*A.Uiitl>  - , 

FOPMAT(3Al3) 

FOP NAT ( / 1 0 X 3 A1  3 ) 

FOP  Mi  ’<//  ) 

. -FQEMAT-li.Hi/SXRCARO.  INPUT  FOP.  PROGRAM  JASPER*// 

15X  *THE  FIRST  CAPOS  READ  APE  FOR  COMMENTS  OP  DOCUMENTATION*/ 
25X*T0  3E.  LISTED  ON  PRINTER  OU*®UT^  UP  TC  NINE  CARDS  MAY  3E*A 
35X*USED.  THE. LAST  CAPO  -'UST  HAVE  AN  X IN  COLUMN  1.*// 

comment  ri°os  a=-  fo»  t ~.y  foup  qapam=~tf~  cards.*// 

55x  * CAPO  1 FOPMAT  313  NP  3 S , Jp  SS , L PC  P 0 * / 

_15X*  L.RDRD  .13  SET  AT  1 ?9  = PE  AC  IMG  TrtE  0 RIGINAL  .FAA  r APE*/ — - 
15X*  LPCPO  15  SET  AT  5 r3P  READING  A PE FORMATED  FA  A y*p£*/ 

35.X*  _T_HE  REFORMATED  TAPE  IS  STAC.CEQ  INTO  501  WED  RCP-OS*/  . 
L=x*  PROG' AM  RECORD  COUNT  ALWAYS  REFERS  TC  133  WPO  PCPOS*// 

FEX*  7h-  PROGRAM  SKIPS  -)PS3  AMO  ~r  HCN  I J ~.5  *./ 

75  X * RECORDS  FROM  THE  CATA  IN^UT  TAPE.*//) 

_FC-RM  AXIS  X*  ...CARO  Z.  .FORMAT  — L9I3*/ 

95 x*  this  ;a  = o contains  the  message  wo=d  count  fop  each*/ 

Jt5X*_.flF.tHL.  MESSAGE  CODES-*— 1 I±LRU_1A. -AND.  -1C_TMRU_I9»  USE*/-  _ 

15X*  99  IN  FIELD  NUM3E°  15.*// 

25X*.  QA.lQ-  3 FORMAT 215*/ 

35X*  THESE  TWO  WORDS  APE  REQUIRED  SINCE  SOME  TAPES  C3MEINE*/ 

95X*— HATA  FR.0M_.IH0- CONTROL  T 0 WERE- UNDER-  SUDSY  STEM.  ONE  AMD*/ 

55X  * SU3SY  STEM  TWO.  ENTEP  2 ANO  A FC F SU3SY  STEM  ONE.*/ 

-25X*  ._£NI.ER_1_ AND  . 5-F.OR.  SUDS YS.TEM  IWQ,*//1  

FORMAT (5X  * CA-D  A FORMAT  215*/ 

1 5 X * WORD  1 IS  A FOUR  GTS  IT  PcCON  000".  TH-  LATEST*/ 

25X*  TRACK  STORE  1NFQPMA7 ION  ON  THAT  CODE  WILL  3E*/ 

I5X*__  INCLUDED -WITH  THE  QUESTID  NA3LE  GROUP-  PEIN.I-OU  T*_*/ _ 

45X*  WORD  2 IS  A MAXIMUM  TARGET  ALTITUDE  IN  FEET.*//) 

-.FQ5.MAT.C5X5)  ...  .....  

FORMAT (//5X*NPS5  E QUA. S*I13,5X *JPSS  EQUAlS’113/ 

1 5X *LRCD  SET  AT*I11X 

25X *lPCO  USED  c0R  INPUT  = EC3=J  SIZE  OPTION*/ 

35  X_*  LIED  SET.  AT  L FOR  LCD  W.PD  PCD!*/  ....  - 

V5X *LPCO  SET  AT  5 FOP  53  3 WPO  RODS*) 

PRINT 9Q 5 - - 

FR I N 7 9 3 5 2 


»c  * m ra1'  t « 


NTS r =13  MX 
NCNT=  2 
PRINT931 

?EA3  AMO. LIST  ANMGtAtlJN. CAROS 
00  13  1=1,10 

PEADm3?.:D  $ .PP1NI9  13X3 

IF  <IQ(1) .EQ.NTST) GO  TO  23 

CONTINUE 

COHT INUE 

REIN  T9  CV 

EE  AO  AND  LIST  PARAMETER  CA;D  1 

= gA09CP.N?S  ilC 

PRINT  90 7 ,NPSS,JPS3 ,LRCD 
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1 n 

4 W « 

c . 

CONTINUE 

CLEAR  AMO  uOAO  INPUT  3UF"E= 

C Al  » Z” R 0 

IF (LRC0.LT . 5 ) GO  TD  133 

___GUU.L  t_0  A Qx ' 

13  3 
10L 

c 

GO  TO  13^ 

CONTINUE 
CALL  LOAD 
CONTINUE 

TEST  FO3  ENO  FILE  ***  YES , TERHINA TE  ***  \C,00 

N7INUE 

3UNP  RECC=>D  COUNTER 
NCMT-sstCNT  1 

TEST  F3  = N3S5  =EC0R0S  S<IP3ED  **  NO, GET  NEXT  CECO=0  ***  Y"3 

- IF  INC  NT*lT.NP3-S)  GO  TO  100  - -- 

3U3  SPLIT  CONVERTS  33-3IT  WORDS  F = DN  JA  TC  30-3IT  W0R05  ST3 


NUN3  IS  =EC3RD  NUN  N ***  DJIA  IS  = E 1 0 = D NUN  N-l 
NUMA=NJM3 
NUN  3= J3 ( 1 ) 

TEST  FOR  NUN 3 E Q NUN A ***  YES, GET  NEXT  RECORD  ***  NO,OCNTHu 
IF  CNUNA.E3.NUN3) GO  TO  732 

lELL'acO.^S.  0-3.1  GO-XO-  -10-2- 


0 TEST  F0=  ShDR  RECORD 

IF (uEN.  >1£«10  3)  GO  TO  701 
102  CONTINUE 

C SU3  ZAP  PROCESSES  A REOORC 
CALL  ZAP 


T PO=  UPSS  RECORD S PROCESSED  ** 
UPSS=JP3S-1  S IF ( JPS3.GT . 1) GO  T 
GO  TO  830 
CONTINUE 

NT  RECORD  NUN  AND  LENGTH  ON  SwO 


GO  TO  132 
CONTINUE 


lil  Ol 


3U6E0UT I NE 


7+/?4 


rTN 


S'J  BEO'JTInE  SET 

Ca-iiiati/iLii/  JAXiCOl  ,J£l2:0)  .L£M»L«Al,.^C-».jAl5a-), 

DIMENSION  J i X ( 5 "?  E ) 

Jj3  FOEiAT  (//  ilx  *EEAO  E.NO  C17  F I.E  * 1 1 1 // ) 

91*  FO-.:U’’(//i-*X*,»Aninr  E:rO-  EEOO-O  NUN*I 1 1, 5x*ErC. 

915  F0F.;'1A7<//5X*3UMP  OF  JA *21 1 1/ l 502? >> 

916  F 0 - 'I  A T ( / / 5 X * 3 'J  M ° Of7  JH*2I11/  (1?  (?XOil)  ) ) 

_li3 Fa.--2UTl//./.J  . 

931  FC?.MAT(// 21  a’FILE  10  :E:oro*/) 

352  F0-.MAT  (/5X3a::  ) 

Z FO  - "1  A~  ( /t  1 2 X*EEA  3 A 3 0 U 3 L E ENn  OF  FILE  ON  TAPE!' 

* FO=:tAT(//:lX*PAsITY  E = EOE  on  file  10  r EC3E3*  // ) 

HS<*7777 77777? 0 

KN7x=l 

JAC<  = F>1  J 

je:jen 

0 FLIO  EEA35  Ato  LISTS  THE  F S- 0 - H AT  £3  TP  13  -CEO 
0 NOT  CALLEC  WHEN  PROCESSING  AN  ORIGINAL  f a A 

u&JLi  Elio  

suffer  in (i,i) ( ja ( 1) , ja( : :: ) ) 

IF ( UNIT 1 1 ) ) 252,253  * 25  a 
253  C0NTINUE 

LAST=2  i El  NT  953  £ GC  TO  253 
25h  CONTINUE 

252  CONTINUE 

lE  •'»=  LcNGT h ( 1 ) 
pfIN’951 

PE IN7952  » ( J A (I) * 1= 1 » LEN ) 

F-' I NT  551 

-_25.d-  -.-CCNlIt-LLE  . . 

FET JPN 

0 'ZE90  ClE AES  JATA  INPUT  3UFT-:?S 

ENTPY  ZEE 0 
00  111  1=1,111 
JA ( I ) =J  9 ( I ) =1 
-..11A  .CONTINUE  - -- 

00  112  1=111,211 
J3 ( I ) = 1 

132  CONTINUE 

’ 00  113-1  = 1,5  2 
J x ( I ) =■! 

—10. 3-  -CUNX-IM1E - 

EE  T U E N 

C LO AO  IS  USE3  *3  EEAJ  AN  0 * I S I '1 A L FAA  7°  =0-2 
ENTEY  LJAO 
knt=<nth 
wAST=  1 

_ — -3U/F£-E~I-N(  1,  U UK  1)  . JA  ( 11  3J  > 

IF (UNIT ( 1 ) )2:2,2:3,2:* 

213  CONTINUE 
L A i r = 1 

?F  IN"91  5 ,<NT  s .-.3  T 3 h ? 

21*  CCn’INUE 

LE  N - f-U . j T f-i  ( IV  - - 

pf  1 N T 9 2 ■• , < N T ,LEN 


j 


38 


O O 


i  U iPO  UT  I Nc  o - i 


np  = ; 


TN  2 » 1 


S'J-I  ROUTINE  OEM 

ct.i:iov3'-<i/  Jain : j . j j(2-: :>  .lsn.last,  rc,  jm32)  , j®.ci*,<x 

sc-mo'i/  Sc  .<2/  sc  'N,-3cr,ji~ci5) , aseo  ,<a  - c t - i , fac  < 3 > 

:o.''*'?a\/3L<5/  jmoc?) 

: 1 5 e'a->1i’f-'::x*?L:3HT  3lAN3*11X 

l^FEGEO IN  VI  CG  20/h3.0  CNT  *I2*/*:2.5x 

2*3uP3'N7  13'  C3/.J-.3  CM  T « I 2*/ * I 2 , lx*  IN  * I <* , 1 X * = M * 15  , l X * = 0 *1 3 ) 
JJ 2 PC-MA7  L/ZA-CU/ ( 10  12X010)  ) ) 

j:-  fo=ma'( ipI3) 

;25  FQ-HA  T (// 5X*  )3G  0 3 0£*  7 X , 4 < *1  * 4X  * 2*  4X*  3 * 4*  -+X  * 5 *4  X *i  * 

14X*F*4X*5*4x*?*3X*iO*,X*:i*3x*12*3x*13*3X*lH* 

' 2 3X* I3*3x» 16*  3>*i ’*  3**1 8*5  x*l  3 V 
35x*H3G  ."Is. 3 ;0'jNT*2X,  IGIO//) 

HO  3 FQ-.MAT  12 13) 

izr  FO-.HiT(//-,x*S£L£C'  3 Y 2 T “ 1 ONE  0-  T«3*£l5) 

j / : fofia~i/2x2Iio/<io  i2xo::)  n 

?Ai  FO-.Hii- ( jx*mc x , mc, jp, mum, _ vi*2xi;::3  ) 

2 SEr  CONSTANTS  **»  INITIALIZE  HO 

•1S<:=  37  3 
'\%«Z-7  17  ? 7 ; 

MS< 3 = 43 :: 2 ;: 333  3 
MC  = 9 3 

•:  sEAO  i.M3  LIST  3»Ztl"’:3  CA-0  2 , C A s3  ? 

PEADO  34.  JMO 
p=:nt  33  3 . jm: 

PE  A3  300  ,i.Y  Z,  LY  4 

p;:mt437..yz,ly4 

hETUPN 

3 H3  3-3C'S3Z2  ONE  ”CCP3  CF  DATA.  A =ECC  = 2 OF  3A~A  MAY  OOTAIN 

3 3 • V£s  A w MESSAGES.  THI  MESSAGE  I Y»£  13  IGENT IFIEQ  3Y  ITS 

C Mf  SSA  GE  OOOEIMO)  rOUNO  IN  T“r  9 1 'AMT -HOST  3 3 ITS  OF  T*i 
2 rlxi;  MESSAGE  W0  = 0 
Em” y zap 

; jp  : m g e x r. 3 The  fipst  wop?  z-  the  cu-  = ent  message 

JP  = 2 < 1 U 1 s J 3 ( 1 ) 

133  CONTINUE 
C 3 - 2A 3 THE  1ESSAG"  3'Jc  J* 

30  73:  .1  = 1,5  3 
JX (IJ  =3 

753  CONTINUE 

JM  IE  USES  A3  A 3 = A ChZmA  A r **CI 

1C  IS  MESSAGE  CODE  ‘I  ***  CX  IS  MESS  A G£  CODE  N-i 
J“  = l 
J!G  A= MG 

= J3(  JJ)  .AMO.  'IOC 

2 3sANCHIMG  _3GIC  I N'OSXEO  37  1C 
IF  ( ’0  . E J . 1)  GO  T0  1 
IF ( MC.EO. -Y t ) GO  TO  4 
IF  IM'I.E**.  '.Y2  ) GO  TO  2 
.IF  IMS  *£3  • o ) GO  ~3  o 
IF («:.E2.3)GO  -0  « 0 3 
IF1MC.E.;.  15)  GO  T0  15 
IF  C-C. or. 19) GO  TO  i; 

c 3 U I3  JP  OY  THE  '1ES3AGE  W3«0  C'JjMT  ?0LN3  I M J MC 
7 0 CO'lT  It.JS 

. j?=oPf  jiiccmc)  s ifup.ge.z::)  go  *c  3 :: 

GO  TO  103 


i 4 


SUSrOJT INE 


r t>! 


C MESSAGE  "Y»  E 1 A^o  A NY  FOLLOWING  -£=>LY  WO- 

..£... xEP-Ly  UOS.C3  AF.f  lOfNrifi*  c 3 Y 3.17*2  3.  E-3UAC  : 

1 CGNTINUE 
L=JMC(«G) 

<=<Fi.G=i 

333  CONTINUE 

IF (JF.3T.2Q3 > GO  To  403 

IF ( J==LY . G' . 3 J GO  TO  3QL 
I F ( K F LG  • 3 T .3)3C  TO  332 
CiLL  ZAP! 

C IF ( <. LT . 2) 30  TC  7*3 

C <X  = K l CA__  ZipP 

aa-  -to  -zoj  — 

331  CONTINUE 

<=<♦■1  > IF  (<.GT.50  ) GO  7 3 73  1 

332  CONTINUE 

JX (<)=J3(JP) 

kflg=q 

-.  XRsUB^t-  — - 

GO  TO  333 

C 0FOCFSS  MESSAGE  TYPE  2 (4C  -» A Y 3E  2 CP  3 ?Y  USEE 

2 CONTINUE 

L2=JMG( MO)  3 L1=L2-1 

JU=JP+Ll  5 IF(JP.GT.2QQ) 30  TO  333 

JP>  91UZ~HSKS  

Ic  ( J-. PLY  . GT  .3)  GO  TO  GO 

N=  j 

00  232  J=JP,JL 
< = <«■! 

JX  (<)  SJ3(  J5 

-242-—  MNT-I-NU-E  

CA-L  ZAj2 

jp  = jp+i_  2 3 IF(JP.5T.23Q>  J-t=2 
GO  TO  703 

>0  PROCESS  MESSAGE  TYPE  '*  ( MC  4 AY  3E  A OP  5 .iy  UGEP 
A CONTINUE 

A-CALL-  ZA?+  - - --■ 

GC  to 

C PFOCEGS  MESSAGE  TyPE  6 ( T 5 A 0 < STO;E  CATA) 

6 CONTINUE 

L2  = J-MC  ( 4C  > 5 L1=L2-1 

JL-JPA'-l  3 IF(Jl.GT.  2 3 3 )GO  TO  50  3 

00  236  J=J»,JL 
<=<  ♦! 

JX(<)  =J3<  J) 

216  CO  NT  I N ji 


- rr^-T-O  ZJ-  - -- 

<0  e ? 0Cr  S 3 ""S  GAGE  Type  iv.  "ESS-GE  WC- C CCUNT(JJ) 
15  CONTINUE 

JJ  = S'-‘IrT(J5U0).A5)  . A ‘ : 0 • M S < 2 
IF ( JJ.EO. 3) JJ=1 
Ie‘(JJ.JT.5Q)JJ  = 5.' 

— P—  I NT  A*1  > . MC  * » J M ( . \ -j  < ) . •t.'C.  J. J 


SUBROUTINE  GEN 


%/7- 


CPTr 


PTM  - . ? 7 A 2 


<=: 

10.  20.3  _J=  JP,  JL ...  _ . ... 

<=<*! 

J x ( < ) = J3 ( J) 

213  CO  NT  I SUE 

JP=JP*JJ  S IFIJP.GT  . 23  3) J"s2 
CO  T O 7 30 

0 ENTgJ  *EP£.  IF  NESSA'GJL  T YPE  L Nir-  =^Pl.T  wC P23.S  ExCEE.CS  sJc  -lx 

7 j 1 C0N7INJE 

JN=3  5 <=1 

CA-L  ZAP1 
JX  C)  =0 

C 3PJNC-ING  CONT-  OLLEj'  3Y  Jn 

£..  TRANSFER  TO  ICO  . FQP..T *E  NEXT  ‘'ESC AGE  . . . . 

C TF.AN5F.iP.  TO  c2Z  FOP  THE  NEXT  PEC  0=0 
C TRANSFER  TO  321  FOR  MORE  REP'-V  «vCR3S 
'7QJ  CONTINUE 

SO  TO  (13  0 ,330 ,3311  JM 
<30  0 CONTINUE 

_*ITURN._ 

C NC  IS  NOT  IN  ACCEPTED  MESSAGE  CODE 

50  CONTINUE 

PRINT? 3 1, NQX,NC, J° ,NuM ,-EN 
C A Ll.  PRNT3 

J?=JP  + t S IF ( JP. ST.  2 03 ) GO  TO  533 

.GO.  IflLUl.  . . . ..  .... 

EN0 


LI  ROUTIN' 


J A 3E  7.,/74  OPT  = l 


PT  N 


SUsrOUTINF  JADE 

_c.cimmon/.3l<i/  ja(io3),j3(200)  ,len ,la3T, -c,j us:  1, j=  ,<  r,<\ 

COMMON/ ?;_<2/  3C'0‘5»uH=»'_mN,P3CS»  JAFC  l 5 ) »AS£C*KAFC(4)  ,"A 
GO Ml ON /3w<3/  NHR(  133) , NMN (10  0)  ,FSC  (lOO  ) ,F PNG (10  3)  , FA Z (1 
1NALT  (103)  ,'00(100  ) ,NST  (130)  ,N'/C(  1C3)  ,NyA  ( 100  >,  N3°(  130  ) ,<A3 
2,lap,n<nt (i:o> 

COMMON/ 3L  <4/  lTPCOO) 

C.QMiON/.3L<o/  IF  (13)  , _ G (7  ) , _ H 1 4 ) , ’LL  13  (4  3)  ,J7M(3>  , JAL(  5)  . J 13  C 7 ) 
COMMON/ 3L  <7/  N4Z3,NSW° 

OAT  A (NCI  3 = 1H  0 . 1H1 , 1M2  , 1H3 ,1M4 ,1H5 ,1H6, 1H7 ,1H3 ,1 H9, IMA ,1M5, 1MC 

1 1*0,  1*E,  IMF  , ’MG,  IWW,  1«I  , 1M  J,  lui<,  , Wl_,  iW,4,  lHMtlHO,lHD. 
21M>D,iHP,lMS,lHT,lHU,lHjf 1HW.1HX,  il-Y  ,1HZ, 

31H-,lri+ , 1H- , 1M/ ,1M*,1M  , 1H0, 1H3 , 1H0 ) 

332  FDPMAT<./2X2:i0,r  3.  3,2XA7,2XA3) 

3)3  FOFMAT  (/  / ( 10  (3X07)  ) ) 

93v  FCPM4T(5I5) 

905  format (/5X*MCMIT0=  T = ac<  STO^F  ON  3 £ A C C N CODE*!1!/ 

1 5 X * M A X 447*13/) 

936  FOPHAT(2x2I3,F7.3,2F7.2,3:=> 

a fc£AD  AMD  ..LIST.  ?A?.AM£J£3..CAC.D  4 . ... . . _ 

PEAD9G4,M3C3,NAlM 
PPIN79G3 ,M3C3.NALM 

C SET  CONSTANTS, CLEAP  3 UF  F£®  S , INITIALIZE  VA  FIA  9LE3 
AS£C=0.3  S JAPC15) =0 
DO  21  1=1,4 

JAE CU.)_=KA.FC(-I1  =0  .... 

21  CONTINUE 

00  22  1=1,3 
FAFC(I) =0.0 

22  CONTINUE 

DO  10*  1=1,100 

MbJEm=Mit:ai)_=NA_r..(I)=HDQ  C)  =‘JSILU.=MUC(I)  =Ni/A(.I)  =MS2(D  =0  . 

fs:  1 1 ) =f= m j 1 1) =faz  o =0. o 

130  CONTINUE 
NPP=1 33 
<nz=c  ? k;c=i 

N A Z 3 = N 3 M 3 = 0 

,MS/t£=  1.  . ...  ...  

M 9711  = 23 0 33  5 NJT9=v303 

MS K 1=13  l MS  <2  = 3 3 3 MSK3=7j  5 MS<4=172 

MS  K6  = 77  j 

MS<0=3773 

MSK10=17773  i MS<12=77773 

.... -M5H2.4  = Z27771'773  _. 

MSKA=77763 
JP3S=5 
L A P = 0 
PE7UPN 

C UNPACK  OATa  =904  M£S3A F,£  7»3E  1 
..  UP  jAT l SCAN  COJMT.  IF  .NEEDED 
ENTRY  ZAP  1 

IF  (JX  (1) . ED. 3) GO  TO  10  s 
juld  = :m:f7< jxd)  , 30) 

DO  101  1=1,13 

jmwO=sh:ft(  jh'.c,  i) 

Af  iIl=JMLD.AND.MS.<l 

131  CONTINUE 


u »| 


jjrsju’lv:  J A 3 : 


./  ^4 


0P'*1 


13j 


23  5 


2j: 


JHu  3=3HlPT  (Jhw3,i2) 

LACP* J-uJ.iNO. M£< 1 2 
N A Z A = N A Z 9 5 MAZ3*LA;p 
:F(MAZA.ST.fa23*>i:2  3>'JS-n*,i3/.P*l 
CONT  I *1 J £ 

RETUPN 

UNPACK  OA’A  "-CM  MESSAGE  TYr>Z  l 

caut/t-%r_aii a rc  engineering  units.  oia-sio^s 

CALLS  ’."C>»£CT 
ENTRY  zap: 

KNZ  = KNZ*1  $ Z"  C<NZ  . s_T  . 131)r,0  TC  ? C 5 
KAPsMCOUAP, ICC) *1 

continue: 

JX-asSHI? T { JxttWTCl  

J-wO^SHlr  T<  JH‘_0,  13) 

LACP=JHL0. AN3. MSK12 

JHi.D=3MlFT(  jHt'tl)  i L G ( 1 ) = J J L 3 . AN3,MS<1 
JHu3=SHIF T < JmLO, li  S LG<2> sJ-lC.ANO.MSKI 
*hlo=s*if t i jilo,i3 ) 5 lpngsjulo. anq.mski'O 
jtu_a^sd-F.T(j)a?)  a:i 
JHlO  = SPI?T  (JhlD.T)  3 
J*L2sS*ZFT < JHL0.2)  S 
DC  221  1=1,1* 

JHlO=SHIFT  ( JHLO,3>  5 LH  ( I)  =JHLD«AK>3»MSK3 
CONTINUE 

JWuC  = SriIPT  ( JHL3,  1)  j '-G(5)sJHL?.AMC.M3Kl 


LG(T) =JHlC.4ND.M3K1 
L r-t'+)  =JWLC.  ANO.M5<2 


S -G(o)  =JML0.ANa.M5t<2 
S LH(I)=JHL0.iN3.MSX4 


! ] 2 


JHuO  = SHl?T  IJH'.C»2) 

00  22  2 1=1,3 
JHLD=SHlFT ( JHLC,4> 

COMT I N'UE 

-4.A^T-=tH.u  I’uiatUitza  ‘ian.M-13)  _ 

acps'.a:3  s izr<=ic3*i  >6o.:/4H6.2) 

P.NG  = LRNG  5 * ANGsRNG*  (1.3/16.0) 

N3pr-tC0CN3  = ,13C)  ♦ 1 

NH«  (NPP)  = LnP  5 N-HW  (NRP  ) = L NN  i F SC  ( NR  P ) =F  S; 
F=N3(N?p) sPANG  S FAZ( NC3) =1ZIM 

-naltu.irpi-lalt.-s.  ncc-Unxp.)-=.l co-cs 


NS  T (N=P) =uGl 5) 


S NVC(NC’) 
j MSP(NPP)  i.NS  AP 


. KylUrHfiPlzlU-) 

■ NK NT  (NP.P)  s<Nt 
-IF1UP-h,T,1)W  TO  2J3 

PRINT 90 o,LHF  ,lmn,fscs,r:ng,  AZIM,L  alt,  I cods, 


as-L. 


>1.6-l»LC-l..i»l.-N.S*P  ,J?S.G*-iCLE- 


23  3 


IF(MSWP.N£.<SNP)LAP=0 
CONTI  WE 
<SWP=NSWP 
LS*P=NS*P 

IF(LALT.GT.NALH)GO  TO  532 

CONTINUE 
RETURN 

C UNPACK  OATA  F = 0tf  MESSAGE  TYPE  -U 
0 CONVERT  CATA  TO  c N-G I N E E R I N 3 UNITS  A NO  STO-E 
ENTRY  ZAP4 

JHlOsShIFT ( J Hu  0 , 2 E > 


332 


44 


JlUSROUT  I Nr  JADE 


7,/74  OPT=t 


JHw3  = JHi.D  . A s»  3 . MSK24  S h^QsJHlO  S 3CNDS=hlO/129, 

LSSS.»S13QS_S  LHiL=_.SCS/36::  _ 

LMN=a3CS-35  2 3 *LH=)/5  0 
FSCS=SCNOS-  362C*Lrt.R-53  *lmn 
RETURN 

UNPACK  OATA  FsOM  MESSAGE  TYPE  6 
CONCEPT  -0  ENGINEERING  UNITS 


ENTRY  Z4P& 

SEC  = JXt2)  *(1.0/1324.  3) 

KSEC=SEC 

JHE.FKSEC/  360  3 

JMN  = <$EC/60-JH.R*6C 


>AU»U<CWCTl»Plilil 


S£C=SEC-JHR*3600.3-JMN*50 .3 

JHi_Q=  SHIP  1 1 J X ( 33  » 3 G l ...  ... 

00  631  1=1,5 

JHL.D  = SHIFT  (JHLQ.tSl_  - ... 

L=( JHLO. AN0.N3K6) *1  3 IF ( L . GT . 37 ) L= 3 7 

f L 


CONTINUE 

. _.JHL3l=SHIFT  (JXL4)  ,30)  .....  . 

00  6-3  2 1=5,7 
JHlO=SHIFT( JHLD.o) 

L= (JHLO. AN0.M3K6) *1  5 IF { L . G T . 37 ) l = 3 7 
.IT.-)  ( r ) sMC 


! CONTINUE 

00  603  1=1,3 
JHLO  = SHIFT (JHLO, 6) 

L= ( JHLQ • ANG • MS K6)  *1  5 IF ( L . GT . 31) L= 37 
JAl(D=NCIO(L) 

? CONTINUE 

ENCOOE  (7 ,915 ,10  AC)  ( J ID  < I ) ,1  = 1,7) 
i FORMAT  (7A1) 

ENCOOE  (3, 6 2 5,  NAl)  ( JA'_(I)  ,1  = 1,3) 
j FORMAT (3  At ) 

TRSPL”  COMPLETES  TrtE  UNPACKING  Oc  T-tIS  MESSA< 

.LM^aa^o-Nzdum/  Liiunai  . 

CALL  TRSP'-T 

:tst 

IUT  = LTE<S)  i I A=  wT  P < 7 ) £ ITP=LTR(3) 

RGAZT  RANGE  AND  AZIKUT* 

A Z:i=LTR(H)*  (360.0/430  6.  3) 

Xia=LX=U-2)  i-J CC.=LliXl3l 

RNG=LTR (14) * (1.3/ 15.3) 

KFI?.M=LT.R(15) 

COROT  PREOIOTEO  TARGET  COO=OINATE3 

J YP  = '_TR  ( 16  ) 5 J3GN  = JY.P  .AN  J . 13T  11 

I F ( J 3 r-  N , GT.:  ) JYP=JYP-2  3*7 

_EY?  = J.YP*  ll.C/la^CJ- .... 

J/D=.T=(lj)  3 JSGN=JXP  .AN0.M3T11 

IF(JSr-N.GT  .3  ) JxP=JKP-2  347 
rX  P=  J XP  * ( 1.3/16. 3) 

NTCNT  =LTR  (17)  5 JTC  = I_T  = (2C)  £ JPj=LTR(21) 
XYJOT  X COMPONENT-  7E-  A-'O  Y COMPONENT 

. ..  .JJ.1= 21)  i J.SGW=  J Y 2 . A 3 . .1 2 T9  .... 

IF  (JSGN.GT  .?)  JYJsJYj-En 


SUBROUTINE  J A 3: 


7 4/ 7* 


0'J-  = 1 


F TN  h.  2 + 7-» 


31/2 


FyO=JYO* (45C  .3/122  .3) 
jy^-lt?'  Q =: 


.NGUM-STO 


IF ( JSGN. GT.O ) JX0=JXD-5ii 
Fxa=JXO-*(<.5C.O/l23.3) 
FY3aFY3/3500.3  5 FxO=FxO/3633 . Z 
T3T=A3S(FY0> *A3$(FX3) 

IF  l T3T. jt . C . 3 1 ) GO  TO  691 

tqilMs9ij.3 --S-  i/Etsa.3  S -CO-.TO- b.%Z- 

691  CONTINUE 


-632 


h3CN=93.0-ATAN2 (FY0,FXD)/3.317A53 
V£u=iQ3.T  (FY0**2«-FXl)**2) 

CONTINUE 

L7R23=LTR(23)  S LTR24=LT=  ( 24)  3 1 TR2S  = 4T?.  I 26) 

INST CC-NG— 3F-LXST  CO ■??.£- AT  ION— IS. 


-U9 


NSGNUN=.TR  (27) 

ORl.T-N~3-.--0  - - 

IF(IUT.EQ.  1)  CsLTN=i.TR(25  ) * ( 1 . 3/1324.  C) 
O-  T RAGT  — — NEW  INSE-RVEO— WORD 
NTRC  T=LTR ( 33 ) 

-c — osio 1 t promt  n:  r.-t  - 3 r v. : 1 2 1 


SI  .-LOR  tl.)  _0=O4-,-  SA.3- 


A3EAT  ASSIGNED  3EAC  ON  CODE 

— JN7 =L7R-(-2-9>  — - — 

JHLO=SHlrT(LTRl  33)  ,43) 

00 — 60 4 — 1=1-,  4- 


JHL0=SHIFT ( JHLO, 3) 
■t-tU-Il-J-iC  0>A.M0  .MSX3 


634  CONTINUE 

~JAoCO=L-*<  1)  n-3G3*i.H(2  ) * 1 0 3 HH{3)  *13H_H<4) 
LTR31=LT= (31)  3 LTR32=L”(32) 

G -L-G-CT  LAST-  GOOD  COOZ  W050  - 

JLT  = LTR  (55)  S U3S=!.T=  (57) 

ICP.TRICjU.  7RC  53  3 


C TEST  FOR  TA3ULAR  COAST  ( U T=3 1 , A= 3 ,T?=3 1 ) 

- -•  -UTCC=<3-i  LGC  =0-f  (.OCX  = 3 

if(iut.ec.i.ano.ia.e3.:.ano.itf.eq.dgc  to 

IFULT-EQ-Z  )G0  TO  637  - - 

IFULT.EQ.3  )G0  TO  637 

Urn.  Q=S  ri.I.£X-U.T3Z.t  5S-1.t  ->  63 


60  6 


(30  635  1 = 1,4 

JhlO=S>*1FT  (JHi.5-,-3)-  - - ----- 

Lh(I) =J4L0.AN3.NS<3 
635  CONTINUE 

JUGC  = LH(1)  *13304-H(2)  *i03  »-wH(3)  *1G*LH(  4) 
I£U  UUT^E.O>  UGC=JLOO 


IF  ( J'_T.  12. 1)  LGCX=JlGC 
GO  VO  6 %*  7 

636  CONTINUE 

JT  UC='<-T  <(56) 

637  CONTINUE 

-C ROC  AG iOP-GSO£0_3*AOOU  -GO-3-i 


wT  -,3  9=LT  R ( 5 9)  S '_T  R6  3 = LTR  ( 6 3 3 5 -TR61=lt:( 
LTR  6 3 =L  T R (o3) 

JrtLO=Sr(IFT  (.  TR  (62)  ,4;) 

3 C 63j  I = 1 , ♦ 

jH_D=:-t:=T  unto,  3) 

63  3 CONTINUE 


6 1 ) 
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SUBROUTINE,  joe 


74/7<* 


FTN  4.2*74 251 


JR3C3  = L-I(l)*i30  3«-LH<2)  *i30*CH C 3) *lQ*Ln (4) 

I£-L±a£ll^La.  .7  7721  .G0..JL3  .a  5 1 

IF  <M3C0.EQ.JA3CD>  GO  TO  350 
IF  (M3CD.E0.  JR3C3)  30  TO  55  0 
CONTINUE 

JU?1P  = 1 5 IF  (JUMP  .SC.DGO  TO  EOS 
P" INT903  < CLTR(I)  ,1  = 1,70) 

EEINT.3.12  ?.  ,.J  M S££ , Lu A.C. ,.14. 

PRINT  931 ,IUT ,IA,ITP 

FOxMA?  l/2X*CT3T  w = 0 'JT  , A,  TP,  *2  X3  15) 

PCINT932,4ZM,RN3,<IC,KC,KFIRM 

FQRMA.7.1V2  X*  RGA Z.T  'HRO  A Z.RNG.IC  ,C  ,FIRM*2X2Fl3  .2, 315) 
PRlNT933.FxP,"Y3,NTCNT, JTC, JP° 

F3=MAT(/?x»0QR0T  KRO  XP.YP  . TC1/T  C?  . T 10  . ?♦  2X  ?- 1 3 . 2 . 3 0 ».  1 

Fa. IN793^»FXu,FY3,vEw»hGGN,lTP23»LTR2*»,  uT=  2 6 
F0RMATl/2X*XY30T  WRO  K.  JlL  , r y£L  , «/  EL . H0GN*2X  4F1  3 . 3 , 313  ) 

PR  I N T 93  5 * C P.i  TM  , M S G NU  H 

FORMAT  1/  2X*T  IMET  WRO  C CRT  IMS  , MSGNU M*2Xr  10  . 3, 13  ) 

F5 IMT  935 , NTCCT 

FORMAT  t/,2  X*I..EAC.I.LN£>t  WRQ1  »2XQln  ) 

PR  IN T9  3 7,  (uTR< I) , 1 = 34,  54) 

FORMAT  t/2X*CFLGT  WR0*/2x2lI3) 

PFIN7933, JA2CD, JNT.LTR31 ,L"R32 
F3RMATl/2x*A JEAT  WRO  A 3C3  , NT , TT1 . TT2 *2 X* 15 ) 

P=INT9  3 9,uGC  ,'-GCX,  JTCC,  J.T  ,LPS  ,i;PT.RI0 

£XRJA£i/2X*!J3£. _L_W  = 2_i23£  «-TjJ30  « LRC-STO  Ju.I.*£S-»2I3  *2X515^2x051- 

PBINT940, JR9C0, LTR59.LT =50, LT°61, LTR63 

FORMAT U 2 X*R3EA T WRO  R5C0 ,R , OF  , Z , TRKNU M*2X 415 ,2X05 ) 

Pc I NT  941 , LTR (54 ) » L TR  (65 ) *LTR (66) 

FORMAT l/2X*CT3ST  AND  03IT  WRDS *2 X2 C2X07 ) ,2X010 ) 

CONTINUE 


CONT  IN'JE 

JAFC  ( 1)  = I'JT  S JAFCt2)  = IA 
J Ar  C ( 3)  = IT3  3 JAFC  (-,)  =JHR 
JAFC ( 5) =J  IN  3 ASEC  =3EC 
<A  FC  (1 ) *1 OAC  5 <A-C(2)=NAl 
._KA£iIti)-= JA3C0  JL  KAFG  ( 4 ) r j.=dC.Q... 

FAFC(1)=AZM  3 FAFC<2)=FNr, 
FAFC(3)=FXP  3 FAFC(4)=FYO 
FAFCC5) =FX0  S FAFC(6)=Fyj 
FA  rC ( 7 ) = V E L I FAFC  Id) =H33N 
GO  TO  631 

END 
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00  300  1=1,12 
IFUFLG.E3.3  )GO  TO  300 

GO  -W.t3.01^W2r-533^ja4r305,-306^J0-Z^-iOS-^3.09-r3-10  ^tlr^l.2K 

301  CONTINUE 

0 IPX  H=a-KUM  5 Q.TSy 

<=0 

JHlO  = SHIFT ( JXC J)  ,30) 

JH!_a=SHIF7  CJHL0,2)  5 K = < ♦•  1 . _ . 

LTC ( K) = J H L 3 . AND.  4SK2 

Jtai.aaS-4i.-T  UHL3«U) — 5_X=Xt-l , = 

LT5.  {<)  = J4UC.i')0»'1SK1f 

>ii.O=-SHIF  T ( JHLO,S)  £ K=K*i  — - --  ’ - ...  - _ - - 

LT*(<) =JHLQ. AM3.4SK5 

JHL0=SHiFT(JHt.a,3)  £ K = K«-i  - -----  

LT»(<)=JMLu. AN3.MSK3 

lrt.L2-aS.-t  i F £-t  JHL2,1) S-XaXt-1 

LT° (<) =JHlO.AM3.MS<1 

jHL0=S-4iFT(  jHLa^-2)  S K = < v-i  ...  

L7*(O=J4L0. ANO.MSK2 

aHL0=-SHIFT(OHL-3r-l»— 4-  K=<*1  — - - - 

LT= (K)sJHLO. AM0.MS<1 

jHL-a=X4;F  T t JHLG»2) — UU41 1- 

LT-  (<)  =J“lO.  A'JD.  4S<2 
jhl3-=Sh;ft( JHL3t3)  £ < = <*-1 
LT-.(<)  SJHLJ.  JM3.1S<5 
JHlO=3h;F7(jhl3*5)  > <=<«-l 
LT;C<)=jHL3.A')0.-t3<5 

'--A  TO  n m 


S U 9*0UT  I N£J*yjY 


T*/7\ 


cpr  = i 


JHL.O  = SHr^^  JH^O,  i)  5 K = <*1 
LLLUO  =J-*L2.  AMO. ISO 

jhuo=sh:ft cjhlo, i)  s <=<♦: 

IIs.  K)  .= JHLG  . AND«MS<I 

JHt.3  = SHIFT(jHLO,13  > 5 <=<+i 
LTP(  <)  =JHLG. ANQ.MS<12 
JHL3  = SHIFT  UHL0.5)  S < = <►! 

LTF(K)  =J-IL3.  ANH.* 1S«5 

GO  TO  300 
33.3  CONTINUE 
Z TF<  W=,0  NUN  7 COPDT 
.<  = 15 
J=J*1 

jJ±L  0=.a  H1F  T_U  U J } i.  3 21 

JHlO  = S-»IFT{ JHL0,H)  5 < = <*-1 
LT=l(K)=JHLC.AMO.MS<li 
JHLO=SHIFT  ( JH'.0,A)  » <=<♦! 

LT3.(<)  =JML0.  AN3.MS<4 
Jhi.0=SH:"  T ( JHLO,  11 ) i <=<*-1 

LT?.L<)  =1,1L  0 j ACUl^Um. 

JHlO=SHIFT ( JHLO,2 ) S <=<>1 
LTF.IK)  = J.-tLD.  AN3.M S<2 
JHL0  = SHIFT  ( JHL0.1)  3 <=<♦■  1 
LT*l<)  = J-*L0  . AND  . 13  <1 
JHLO=SHIFT(JHLO,l>  5 < = <<■! 

U!fLKJ=_JKLC  t ANELaHSKl 

GO  TO  300 
3CU  CONTINUE 
C 7 F<  W=0  NUN  3 X Y COT 
K=21 
J = JH 

jh .□= sdif-i  ux.iii.j;i __ 

JH„0=SHIFT<  JHlO,  0)  3 <=<«■! 

LTF.(K)  =JHlQ.  ANO.  MSK3 
JHl3  = SHIFT  < JHLO,  A)  5 < = <H 
tT=.  (<)  =JHL0.  A N 0 . '1 2 < 4 
Jnl3=SHIFT  ( JHL0.2)  S < = <*1 

_ur=K)  =JH-J0.  A'tD.0S.<2... 

JHuO=SHIFT IJHU0.9)  S <=<*1 
LT-=(<)  =JHL0.  ANC.NSO 
JHLO=S4IFT  (JriLOro)  5 < = <«■! 

■_T=  <<)  = JHL3 • ANO.  M3<5 
GO  TO  300 

111-  CUNT:  SUE  . .. 

C T °<  w = s NUN  % T INET 
<=26 
J*JH 

JHl0=CHIFT ( JX( J)  , 30) 
j-o=sw:ft (jHLOt  12)  £ < = <♦: 

LT  UP  =_-iHLO.  ANQ.M2<1?  _ 

j^uo  = sh;ft(jh*>.o»is)  s <=<♦: 

LT* (<) =JML0«AM0.NS<13 
GO  TO  300 
305  CONTINUE 
C Tc. < w=0  MU  1 10  AOEAY 

J=  J*1 


I 
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SUBROUTINE..  RuS Y . 


lit/?'-*  0RT=1. 


JHuD=S^Ir T ( JX( J) , 3 j) 
-Jri.w3sLS.-tIr  T ( JriL3,2i-i- Xs .< 40-- 


<♦■1 


L7=<< )=JHL0.  ANQ.4SK2 
JHt  0=  SHIFT (JriLC»12)  5 K 
LTE (< ) = JHlC,  A.M0.1SX12 
JHt3=SHlFT  ( JH'wC»3)  S < = <♦! 
LTR(<)  sJHuD.A'IC.MSKi 


LTR(K) sJHtO. AMC.M3K8 
GO  TO  333 

33  7 

CONTINUE 

0 

T F < UR3  NU-H  13.1-  TRACT 

<=32 

-»=  14.-  _ 

< = <4-1 

JHtO  = SriIFr  ( Jx(  J).  3-0) 
LTRCO=Jx(  J) 

GO  TO  330 

333 

CONTINUE 

. 3 

t£X-Uil3-m.l  .1 L-  Cr-L-GI 

63* 


<=33 

J=J»1 

JML3=SHIr T ( J X < J) , 3 0 » 

30  41=1, - 

JHuO  = SH:F T (JHLO.l)  3 < = <4-1 

...UT  -xtX)-=J.4-t3.>  A-'U-JISXl - • 

CONTINUE 

JHtO=SHlFT ( JriLD, 3 ) 3 <=<+1 

LTE<<)=JriL3. AN0.MSK3 
JHt.O=SHlFT(  JntO,*>  5 <=<*•! 
LTRt  <)  = JrlLC.AN3.MS<* 


635 


i.TR(K)  = JHLQ.A'J3.13<* 
00  635  41=1,13 
JJt3=SM;FT (JHtO,l)  S 
LTR  <K  ) =.JHL3.  AN3,  N3<1 
CONTINUE 


-<-<*•4- 


< = <>1 


LTR(<) sjriL3.AN3.4SK2 
GO  TO-  33  3 
339  CONTINUE 
0 T*<  WRO  NU1  12  LGCI 

<=  5w 

jsjtl 


JHlC  = S-4IFT  (JXt  J)  , 30) 
JHwO=SH-IFT(JHL3»2>  * < = <«•! 
LTRK)=JmlC.ANC.'1C<2 
Jrit3=SHlFT  (UHLO,  13  ) 3 < = <*-l 

lT=.(<)  =JHLC.  AN0.NS<13 
JH^  0=  Sri;  F T t JHW  4-<=-<*-l 


310 


lt-  (<)=jhlc.  ano.-iski 

JH».!3=SHIFT  ( JHL0tl4)  S <=<4-1 
LTF  (<  ) = JHl3. AN0.4SK14 
GO  TO  3-3  3 
CONTINUE 


SUBROUTINE  R J 3 Y 


74/  VI* 


Q3T  =1 


CTN  h.2+742o 


J=J*  1 

u xj.jii.id . 

JHLO=SHI.-  T<  JHLO.l)  5 < = <*•! 
..  . L'pE(<)=JMu3.  AN0.*1S<1 

JHl0=SHIFT(jhL0,1)  $ < = <*1 
LTR(K)=Jrit_C.  ANO.RSKi 
JHuO  = SHlFT  <JHL0,1)  S < = <n 

LTR(K) = J-tLQ.ANS.NSKl  

JHLO=SHIFT (JHLO* 12)  5 <=<♦: 
lTR(K)  s JNLQ • AND . 'IS  <12 
jhlo=shift(jhi.o,  15)  j <=<♦•: 
lT?.co=jhld.  ANQ  . '13 <1 5 
GO  TO  S i a 

-in GJ211LI1RU.E 

C T°K  WRD  NUN  1<*  CTS3T 
K = 63 
J = J + ! 

JHLD=S;II"TUn'.C»12)  5 «=<♦: 
LTR(K)  sJ-*LD.  ANQ.NSK12 

L”  R ( K ) = JHl_D.ANO*NSK13 
GO  TO  3 ] 3 
312  CONTINUE 

C T.RK  WRO  NUN  15  03IT 
<-65 

J=  J » 1 

JMLO  = SHIFT  < JX< J) ,33) 

K=<«-1 

LTR(K)=JX(J) 

330  CONTINUE 

RETURN 


i 


5LU.3R.OUT  I N E.  _J  4J  E R. 


■’4/7-  0?T=1 


FTN  4.2+74261 


3i/: 


4 


| 

rv 


SUBROUTINE  JAOER 

J3J3ittlQN/3*.S.i/  JA Lilli  J1  HZ  ll,  (53  l .JR  ,<NT  ,.<x . 

COMMON/ 3L< 6/  LF(13  ) ,’.G<7)  ,_H(4)  , NCIO  (45)  , oTM  (3)  , JAL<  3)  , JID  ( 7) 
COMMON/ 2 LK7/  N A Z 3 , N S W ° 

01  PENSION  GRAY  1 16)  ,GCAY2( 15)  , G=AY3  (16)  ,J-PLY  (13  ) 

DIMENSION  N3  (12) ,N3C(16I  , Nr  (4) 

INTEGER  GRA  Yi * GRAY  2 , G = AY  3 

nara 


JU- 


935 
93  6 


l(GRAYi=3»-2* 3, -1,2*3*1,31  , 

2 ( G R.A  Y 2 = 3 , 5, 15, 10, 35,  33, 2 3, 25,  75,  7C,sa,  £5,  -.3,  45,  55,  53) 
3(G=AY3 =3, 33, 241,16 3, 561,-8 3, 323, -GO, 1233, 1123, 963, 
41343,843,723 ,563,633) 

MS<  1 = 13  5 MS<10=17  773  5 1S<12=77773  5 MS<3=73 

ELDHA.T.L/ / 1 +A_.AN3  C.  ROTH  1 0=  ROTH  C»//) 

F0=MfiT(2X*4*2Xf 14, 2X,F7.2 ,15, 2X.il, 2X, 15A1,4X ,dl, 
12X.102  ,141 , 1 02 , 2X 1 Al) 

F0=MAT(2X*C*iX2F7.2,I5,2X,i 
12  X,  10  2,141,102, 2Xl.il) 

MPZ=3  5 MPX=1 3 3 M Pi  = 1 H 1 5 RP2=1'-1 


' a t -*  - t 


, 2 X, 15  41 , ■ 

5 m$K6=773 


LU21L 


C ZAPR  PROCESSES  REPLY  WORDS (NOT  0UR3ENTLY  IN  USE) 

0 TO  USE  ZAPR  SEE  COMMENTS  FOLLOWING  STATEMENT  331  IN  SU3  GEN 
0 WHEN  USED  Z 4 ° = L 30<S  FOR  =E3LY  W = OS  IN ( JX < I)  , 1 = 2, < X) 

G UNLESS  RESTRICTION  IS  MADE  ON  PRINTER  OUTPUT,' 

C THE  AMOUNT  OF  OUTPUT  IS  EXCESSIVE 


- - - -3:3 

I 

| 13  3 

P- INT9)3,  (JX  (I) .1  = 1,<X) 
FORMAT  L//2X, 53221 
K = 1 5 A=LF( 9)  « C=cF( 10) 
CONTINUE 

<=<  + 1 3 IF  (<  .GT.KX) 33  TO  633 
jui  O^mtct  < jx  ( <)  .XT) 

i 

. , 

' 1 

— 

h* 

i-* 

00  131  1=1, 3 
JHLD  = S-IIFT(  JHL0.1) 

JRPLY  (I) =J^L3. ANO. M3<1 
CONT IMUE 

JhlO=SHIFT (JHLO, 12) 

. JPRLY  (4) =JHL0.ANQ.MS<12  ... 

f 

f 

122 

00  132  1=5,9 
JHlO=SHIFT (JHLO, 1) 
JRPlY (I) = JHLO. AND .MS <1 
CONT  INUE 

•JHLD  = 5HIFT<  JHLO,  13) 

JHL3=SHI FT (J=°LY (4) , 45 ) 

00  133  1=1,12 
J Hu j = SH1 FT ( J rtL  0 , 1 ) 

J= 1 3-1  a i 5 ( J) = JML  0 • AND • M 3 K1 
13  3 CONTINUE 

1C.  .12.4_1.=  1,  la ... 

N 3C  ( I ) =‘IC  13(37) 

13  <♦  CONTINUE 

NIC  (1)=  Nc:i3<2) 

NSC  (15) =NC ID ( 2) 

IF  ( JRPLY  (7)  . E3 .1)  ‘IOC  !6  ) = NCIO  ( Tw) 

lE-ULSC-iJ  ,.£1.1)  .*ai(2J  =;'CID(2i 

I?(N3(13) . El .1) NIC ( 3) =N3l: (?) 


52 


3 U 3 E.Q'J  r I i\£  J A 3 E E 7-*/74  0PT  = 1 F.7.N..  W.  2*  74251  31/2 


IF(N3<5) •£Q.1)N9C<»)=NC:D(2) 

IF  (.UilOA  > ..EO.ojoaCOil-sICICt  Zl - 

I F ( N -3  ( 6 ) • r 0. 1) N3C ( 5 ) =NCI J ( 2 ) 

IF (N3 (12) .£3. 1IN3C (7) =N::0<2) 

IF ( N5 ( 7)  . £ Q . 1 ) N 3 C t 9 ) = N C I 3 (2) 

:F<N3(1) . £3.1) N3C < 1J)  =M3I0(2) 

IF (M3 (?) . EO. 1)  N3C< 11) =N 113(2) 

15-1:12.12.)-  .EH.  U-‘-12C.C12L=M2.:S  12-) 

IF(N3(9).£Q.l) N9C (13) = N 0 I 0 l 2 ) 

IF ( N3<  3)  .£2.1) N3C ( 14) = NCI0 (?) 

IF (JPPLY (3)  . E3.1) M3G  (16) = NCI  0(2) 

M&AS3  = .MCI3(42) 

IF(J=PUf  (2)  . £Q  . 1 ) MG4?2  =NC  IJ  ( 1 7 ) 

J1XH1=J04E2  = : 

03  751  J 5 = 2 i 7 

4 S = US  + Z- 

JAK£1=SHIFT( JAKEltl)  3 J4 <E2 = SHI F T ( J AX E2 , 1 ) 

MAKE1=N3C ( US > t :li<£2  = M3C  ( <3  ) 

LA«E1=l4<£2=.M3  2' 

-IF-iaAHSl  .53^26.111045! SHAX - - - 

IF(MAK£2.£Q.^P1) lA<E2=M0x 

JA4E1=UA4E1 . 0E.LA<E1  ? JA<E2=JA<E2  .OF  . UA<E2 
73 1 CONTINUE 

. 3&tl6sJ3?l.Y  (13>-*-RA-H5*J?4MC/t&.S  - - ■- 

ALT=C .3 

15(0.  51.-14  GO.  -10-Q2-C 

IF ( C . £0 . 3 ) GO  TO  653 

C «03£  C - ALT  -IN-CSAY  CODE  

N4uT=J57cY  U) 

:f(.+alt.53.c)go  to  50 (3  - - 

J=  4*N9  < J)  *-2*N3  (2)  *N3  (1  ) 

107  l-fQ.'.Y  HJt'.  ) 

US V<  = < 3 <=  3 

30  52  0 -U=-*,ll  - . — 

IF  (S3  (J  ) . •)£  . 3 ) K=K*  1 
523  CONTINUE 

T£ST  = FL3ST  (0/2.3  5 *TES’=</2  3 CTE3T=ITE3T 
IC  (15  SO-  51  %.%.  15=  2-13-^-501  r02-i0 

32 1 C T’l0l  = -ri0l 

521  J=  }*M3(7)  *u*M3(6)  *2*N8(5)  ♦M3(4)+l 

’?  TMP2=GEAY2 ( J) 

4=3  - 

33  522  J=  9-»  1 1 

15  40340 1015  .114=4*.: 

322  CONTINUE 

TE3I=FU0AT  (0/203  % I7-EST  = </  2 5 r"EST=  I TEST 
I” ( TEST~FTEST)  3233  *523*3271 
3233  TNP2=73.3-TMP2 

52  3 J=3*?I5(11)*.*>i3(10)4.2*N5(9)tN3(3)«-1 

TM?3=TQ3  3»i;.lY3  (U)  -4.01 

AU  T = T“°2  1 

< = u 3 / '< 

533  CONTINUE 

Pt  INT9"o.  a.  T,7  A.NG  .NA  Z9  , (G  A<  3.  ( NOC  (J  ) , J =1  , 15)  , 

1 J A<£ 1 • N3C ( S ) ,Ji<E2,N3C  (15) 

— — — — — — ...  — .*20  - 10  ■*>  H - - - — - — — - ■ — 

623  CONTINUE 
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SUBROUTINE  JAOZs 


IF  (3 • E3 • 1 ) GO  “3  650 

3 MODE  A _ 3GN  dOGE.  ...  ... 

JPAC<=J^3L'r  ( •*) 

J“tLO=3HI- T(  J?.4C<«45) 

00  761  1*1,; 

Jhl3  = SHIFT  ( Jh'LO, 3) 

MFC) rJHL0.4N0.MSK3 

_Zil JiatiLI.Ci.UZ. . . 

J?ACK  = NF(  1)  *1393*NF(2)  *139*NF(3)  * 1 3 * N F (A) 
?RIN73aS.Jr.ACKf3.ANGtN4Z2,MGAr3.  (N5CIJ)  . J=i.io)  , 

1 J4KE1 * N3C ( 3)  * J A <E  2 » N 9 C < 1 6 ) 

GO  TO  539 
653  CONTINUE 


CONTINUE 
GO  TO  133 
CONTINUE 
RETURN 
ENG 


GJSROUTINE  3.ErLEu7  - 7+/,->  CPT  = i 


- FTN  4.2*7423 


SUBROUTINE  REFlEXT (AZ= ,RANGE,CODr ,SCAN) 

03imHAli..K2/ . GC-iXS.-6.HR  , _ Hfl  *.F  SCS*. Ji£its l .-SGS  vXA£-C  tAX.*.?ir  Ct 

C0MM0N/9L<3/  NH»(i3  0)  , NMN(13C  ) ,F5C(13:>  , F3NG  ( 10  3 ) , Fa  Z ( l?  ' ) , 
lNA.TUOO)  ,MC3(i03)  .NST < 133) , N VC< 103)  ,NV4(133)  ,NSP(i)3)  ,<AP 
2.LAP,  NK'iT  C 1 G 3 ) 

INTEGER  SC DOE ( 130 ) 

INTEGER  I<T,SSCAN<133,9) ,3 CAN, CODE 

GIllC.USIOM-Gliu  Lias  . 3)  ♦XC-lCXC.-i.)- 

DIMENSION  X<2)fY(Z) 

DIMENSION  THRF123Q)  ♦ •RRFt’OO)  ,THD  = <?03) 

INTEGER  K(IOC) 

-  INTEGER-  ID-REF—  . - . _ 

INTEGER  ISO 

DATA  I, <772/ 

DATA  ICREF/0/ 

~ oata  K/-ioa*c/  . - ....  - 

933  F03MAT(2X2l3,F7.3,2F7.2,i:5) 

336  FORMAT  (./  3 - . 

937  FORMAT <//) 

-3X6 FORMAT  (6.x  » N»  2X  »a*JAx»SEC-VAX-»R.NG3l6-X»  AZ  M*-X X *XCX* 2X * 3.CX-* X X* JZ*. - 

14X*W*3X* VC* A x*S*ax*F*1 X*RCRO*) 

333  FORMAT  (5X*S*7X*AZM-*7X*=N&*  > • 

LSCN=S04N-1 

RAD=3. 14 159/137. 

1 £4  OAXO£,£Q.3>-GO  TO  7 3X3 

IF  (COOE.EQ.?335)GO  TO  703  0 

-C  PLACE  THP-INLIWE  CODE  HEP  E - - - 

C IG3  DEFINED 

IGO=MOS(COOc  » 130)  

IF(IGC.EQ.O)  RETURN 

1£ t:xx.ic~)  cc  to -i 

DC  200  I C = 1 » IKT 

- - IF ( CODE. EQ. SCOOE ( I 0 ) ) GO  TO  30  0 

200  CONTINUE 

IFtIKT.GE.l-0Q)  GO  TO  7000 
5 :.<r  = KTH 

GC^CXT 

PPINTIRS , CODE 

136  FORMAT ( lx.  *AODIT  IONAl  CODE  = *,I5> 

' SCOOE(IkT) =CCDE 

330  IF  JAZR.GT.X5 7. 5)  SCAM  =SOAN-i 

301  IF (<(  IC)  . GT . 0 ) GO  TO  407 

<tCC3-=l 

GO  TO  3313 
C 

C IF  AZMJTH  hITmIN  373  OF  «EAD  OF  LIST 
433  IF (SCAN. S3. S GO  AN (IC,1> ) GO  TO  30  30 

IF<SCAN.NE.35CANC;,l)  +1)  GO  TO  1333 

— 5-3C  • - -I£-(-A.XOL^  T.A.I  (GGV.->-*-L3.  ) CD  -TC-ZCCfi 

0 

IF ( < ( IX) . GT . 1)  GO  TO  1307 
<< ID) =1 
GO  TO  33 l 3 


■Z  JPGA-TE  THE-GAVE0  «.  I GT  DE.ETEINt.  TMc  F-I«ST  F^OMEnT*-  tCVlN.T 
13  0 3 <CO)  =<CC)-1 


T->EM  H.L  UP 
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SUBROUTINE  REFLECT  74/7  + op:  = i 


IFCKdC)  ,E0.  3)  GO  TO  3023 
DO  1302  111=1,11 

AZ(ic,iiij=az(i:,:n*i) 
PNGdc.ni)  =pmgcd,ii:*i) 
sscan(i: ,ii:>=sscan(i: ,i::*i) 

1500  CONTINUE 


GO  TO  4JQ 

2QC3  IF(KdC)  .GT.i)  GO  TO  2*03 

< i;o  =2 

GO  TO  3010 
C 

Jl  IS  THE-  R4NG£>P3F S_£_HI_ A_iG R IF.O EELl-UED  .E..H.3E. 
2<*33  IF(ENG(IC,1>  .GT.  R N G ( I C .2  ) ) GO  TO  1990 
NN=2 

2<*13  IF  <RNG( IC  » NN)  . LT«  RANGE  ) GO  TO  33  00 

Nl  = l . ...  .... 


PEINTlil»5C00E<  IO)  _ ‘t  N , F S C S 

.ill  FORMAT  1/1X, ’QUESTIONABLE  GROUP  COCE=*.ia, 
12X*L4ST  SECTOR  TIME’2I3, c7 .3) 

...  NR=KdC) 

PR  I N 7 9 0 9 

22_11.2-13=L  t-NE 

PRINT  112 ,SSCAM  dC , IR) , AZ ( IC , IR ) , RNG ( IC , IR) 

112  FORMAT ClX, I5.212X, F3.2)) 

113  CONTINUE 

PRINTll1*!  SCAN, AZR.  RANGE 

114  FORMATdX,  I5,2(2X,F3.2)  t2x  ,19) 


C CHOOSING  3 << 1 

Zl<=  LAZ  dC.NN) -AZ  dC,  1)>  / 3S3. 

2473  IFCZK.3E.3.)  GO  TO  247 5 
Z<  = ZK+  1. 

GO  TO  2472 

ZK=ZK-1 . 

C 

GO  TO  2+75 

2+9  3 P.A  = RMG(IC,1)  + ZK*  (RANGE-RN  G ( IC  , 1)  ) 

TH£TAA=AZ(IC ,1)4Z<*(AZR-AZ (IC,  1) ) 

.GQ  1-0-2312  _ ...  . 

2+93  RMGCC.NN) =2*  ENG ( I C , MN ) - 3 A 
N1  = N 1 +1 

253  3 THORdCREF)  = (AZ(IC  ,MN)  4TUETAi  )/?. 

2513  IF  (THORCCREF)  .GE.  3)  GO  TO  2512 
ThORCCREF)  =THOR  (HREF)  +1=2. 

SO  -to.  231-2  ... 

2523  :F(THC°{ ICS£F) .lE. 193.  > GO  TO  2532 
ThOR CC REF) S Thor  lie REF) -id  3. 

GO  TO  2523 

25  33  ThRFCCREFJsAZCC.NN)  ■ 

RN=  .5*  <RNG<  IO,  NN)  * RNG  (IC  r *i  I)  - 34  * - A ) 

22  = R21G. L1C  , N >1 ) - .=  A *121 1 1 A Z ( IC  »N'i)  - T t£7  AA  ) * RAA1 

IF< ro.u.  : . j p=:nt  99,  :c.  <<  :o  . co:r,  nn,- c,r:,r- 
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subroutine  reflect 


if  ( rc  . lt . 3 .0  3 3 o 3 i i j ro=  : . 3 o g; 3 : i 

£.C^-ur  IL-Clx  ,1-43  .-XC-5X.+  F-.Z  . O J - 

RPF  (ICREF)  =pn/=0 

PRIN’+OOG , ThRF  (HREF)  .^FCCMF)  , ThOR(  IC^EF) 

FORMAT (IX , ‘ANGLE  OF  REFlE2TO=  =*  , F 7 . 2 , 2 X , *RN  r>  OF  RElCTR=*, 
1.  2 X » ’ORIENT  A 7 ION  *,F7.2) 

PX  =SI'(  ( THRF  CCEEFI  * = A0)  *RRF  (ICIEF) 

-BX-  -s  ..CaSXXrtRF  C I~=  E£l*£iI£U-».RA£x:C-R  E£  ) - 

0Y=DEL*:O3(THOR( :c=ef) *ri:> 

OX  = CEL*  3 I N ( THQ.R  ( ICREF)  * R AC ) 

X( i) =PX+JX 

r(u=p<  *o\r  .......  ._ . . 

X12)  = P X-OX 


IF  (N1.E0. 3 .ANO .RANGE.L E.3)  'O  7 3 ?493 
P;  IN7953  ,JAFC+ASZ2f<AFC,FAF0 

FOEMAT (/4A  *J7*  3X* A*2X*  Tp*2X*h°*1 X*  MIN*5  X*SE3* 
14X*A2IO*5X*AL7*4X*  A3C2  *4X  *R3C0  *5  X*  AZM*  5X  *RNG* 
26X*xP*6x*yp*6X*xO*SX*y2*3x*>/El*4x*hqnG*/ 


JAP=KAP 

NF  *.  G = 0 - .... 

LA  P=1 

PS  I NT  93  i - - . . ..  . . 

00  63  2 J°p  = 1 » 10  3 

IF  INFLG. GT.3 )G0  TO  621 

IF  IN3PCJA?) .GT.LSCN) GO  TO  622 

CONTINUE 

PRINT935  , NNR  ( JAP)  .,  NMN  ( JAP  ) ,F3C  (JAP)  f FSNG  (JAP  ) ,FAZ(JAP) 
INAlT  (JAP)  ,NC3(JA°)  ,N7A  ( JAP)  ,NST(JAP)  ,M\/C  ( JAP  ) ,N3°  ( JAP  ) 


CONTINUE 
JAP=MCO ( JAP, 133) *1 
CONT INUE 
NN=MN*1 


3 
*♦  ■ 

I"  (<(IO.GF.NN)  GO  TO  2+10 
<(  :o  = 3 

3 3 3 IF « (IC) .LT.9)  GO  TO  3 3 3 L 
PRINT  44.4  , < ( I C ) 

+ <*  FORMAT  (lx  , ‘(‘ORE  T H A N 9 ELEMENTS  * 

* t • o \ = .<  ( i G->  - 1 

,113) 

II=<< IC) 

oo  4533  ::i=i,n 
AZ(ICflll)  = A Z ( IC  * 1 1 1 «■  L ) 
r n r.  < i c , : r i ) s r n r,  ( : c , 1 1 1 ♦ i ) 

SSC  AN  ( 13,  I ID  = S3C  A N ( ic,:ii*o 

5A.4  CONTI  NlI  - — - ..  - . 

3 

3 

z. 

33i  <(;:>=<( i: ) *i 

313  Ls  < ( IC ) 

AZ(IC,L)=A7P 

RNG(  ICtD-aR  ANGE 
SSGANC:  ,4)  = 3C  AM 
3-A-3- . iiaNX-OaiF  - - . .... 

r 
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| APPENDIX  F 

ILLUSTRATIVE  RUNS 

An  illustrative  run,  using  a data  tape  from  a flight  test  conducted  on  6 May 
1975,  is  presented  for  the  purpose  of  describing  the  input  procedure  and  printout 
results.  The  aircraft  was  a T-39  (MIKE  61)  with  a beacon  code  of  2630.  The  air- 
craft was  flown  in  the  reflection  area  from  the  Advanced  Radiation  Test  Facility 
(ARTF)  hangar  on  Kirtland  Air  Force  Base. 

A copy  of  this  data  tape  is  available  from  AFWL  (SUE)  for  those  desiring  to 
obtain  JASPER  and  check  it  out  against  illustrative  run.  Only  selected  pages  from 
the  output  have  been  included  here.  The  total  output  is  too  voluminous  to  be  in- 
cluded. The  first  sheet  (page  60)  of  the  output  has  all  of  the  identification 
data  related  to  this  run,  data  tape  used,  and  test  aircraft  and  its  code.  Also 
all  other  aircraft  in  the  terminal  area  are  identified  under  "Additional  Code". 

On  the  second  sheet  (page  61 ),  the  aircraft  Identified  as  questionable,  are  actu- 
ally splits. 

The  next  four  sheets  (pages  62  through  65)  have  been  extracted  from  the  total 
output  to  illustrate  conventional  false  target  indications  from  both  the  ARTF  and 
the  Manzano  Area  Fence. 


I 

M-  ' 


;TM7  r -,w  r i.U'.I/m*  *FITV/IS7  l J®/fNl»  r*FtTO/(\Nr.  Sl*lT/rr|T 


?cph 


* ??■* 


'■.I/A'  T.f,'/  FAI--/17  <"AL*:i  /t.,-10  '■FIT  '>/»/  'FLTt/cf|u  ?FI  T-/ANG  SI’IT/CN' 


II"  2i.  .I"'/?/*'  .J.viT/'i’Kj  Tti.ZS.ttl  ltL5t/!;*l(i_  2FI.T8/i2  -iFLrs/tHC  67111711115  SPLT/CNT 

C'IVNL  2 .1/,  212.67  7,  71  62.66  17,25  12,1,1,  5. If,  /.", 

STO-'.IO'C  2 ,J<»  512.67  7.71  12. V,  26.75  82.6*  13.1’  2.95 
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APPENDIX  G 

GLOSSARY  OF  PRINCIPAL  VARIABLE  NAMES  USED  FOR  OUTPUT 


PROGRAM  SYMBOL 
S 


AZM 

RNG 

TRGT/AZ 

TRGT/RNG 

FALSE/AZ 

FALSE/RNG 

RFLTR/AZ 

RFLTR/RNG 

RFLTR/ANG 

SPLT/CNT 

H & HR 

M & MIN 

SEC 

ALT 

ACID 

ABCD 

X.Y 

VEL 


MEANING  / UNITS 

Scan,  one  complete  revolution  of 
antenna  starting  with  "1"  from  begin- 
ning of  data  tape 

Azimuth,  degrees  magnetic  heading 

Range,  nautical  miles  (NM) 

Target  azimuth,  actual  aircraft, 
degrees  magnetic  heading  (M.H.) 

Target  range,  actual  aircraft, 
nautical  miles 

False  target  azimuth,  degrees  (M.H.) 

False  target  range,  nautical  miles 

Reflector  azimuth,  degrees  (M.H.) 

Reflector  range,  nautical  miles 

Reflector  orientation  angle,  degrees 
from  magnetic  north 

Split  Count 

Hour,  zulu  time 

Minutes 

Seconds 

Altitude,  feet  from  sea  level 
Aircraft  Identity  Code 
Aircraft  beacon  code 
Range  X and  Y components,  N.M. 
Aircraft  velocity,  N.M. /sec 
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PROGRAM  SYMBOL  MEANING  / UNITS 

XD  & YD  X & Y components  of  velocity  in  N.M./ 

sec 

HDNG  Aircraft  heading  (MH) 
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APPENDIX  H 

DETERMINATION  OF  SYSTEM  REPEATABILITY 

This  appendix  describes  a feature  that  has  been  incorporated  in  JASPER  to 
determine  the  "sensitivity"  of  the  system.  The  term  "sensitivity"  used  here  is 
not  used  in  the  true  sense,  but  in  a relative  sense.  It  is  used  to  indicate  that 
there  is  a change  in  the  system  from  flight  test  to  flight  test  or  from  one  data 
tape  acquisition  to  the  next. 

In  order  to  have  some  consistency  in  the  measure  of  "sensitivity",  a fixed 
signal  beacon  should  be  used  instead  of  an  aircraft  system.  This  is  because  the 
same  aircraft  is  not  always  available  and  systems  vary  between  aircrafts.  Also 
with  the  aircraft  moving  (i.e.,  altitude,  azimuth  and  range  changing),  the  acquired 
data  varied  excessively  in  a single  flight  test. 

Therefore,  here  at  Albuquerque,  the  FAA  beacon  atop  Sandia  Mountain  was  used. 

It  has  an  output  of  200  watts  peak  power  and  produced  consistent  data  throughout 
the  tape. 

The  "sensitivity"  is  obtained  in  the  following  manner  and  as  shown  in  Figure 
HI.  The  angle,  aAZ,  is  found  between  where  the  antenna  beam  first  acquires  the 
beacon  and  where  it  is  last  acquired.  That  angle,  aAZ,  which  is  normally  given  in 
ACP  (Azimuth  Change  Pulse)  is  converted  to  degrees  and  beam  half-angle.  This  half- 
angle is  used  in  a table  look-up  in  the  Program  which  has  been  obtained  from  an- 
tenna patterns  for  a particular  antenna  system. 

The  half-angle  is  obtained  in  the  following  manner, 

4096  ACP  = 360° 


or 


0.0879  ACP/DEG 
aAZ  = (Total  ACP)  * (0.0879) 
Beam  ^ angle  = ~ 
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Figure  HI.  Beacon  Half-Angle  Definition 
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Therefore  from  sample  output,  the  "sensitivity"  shown  is  -9.069  dB  for  a h angle 
of  1.933  obtained  from  a table  look-up  for  the  Hog  Trough  antenna. 

It  is  realized  that  the  aircraft  or  ATCRB  systems  "sensitivity"  may  vary  due 
to  many  causes  like  up-link,  down-link,  propagation  path,  weather,  or  what  have 
you.  But  the  main  point  to  be  made  is  that  the  data  should  have  some  consistency 
or  repeatability  between  acquisitions.  Therefore  when  the  "sensitivity"  numbers 
calculated  vary  by  more  than  -5.0  dB,  the  data  should  be  suspect. 

An  additional  fact  was  found  that  when  the  "sensitivity"  number  was  low,  there 
is  less  occurrence  of  false  targets  or  replies  off  a given  reflector  even  when  the 
aircraft  is  in  the  specified  airspace.  When  the  number  if  larger  more  false  tar- 
gets and  replies  are  seen. 
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